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EDITORIAL 


FORT se porte de mieux en mieux. Après AMSTRAD et IBM, 
nous vous mijotons une surprise pour les semaines à venir 
coté ATARI. Ainsi, votre "travail" consiste mintenant à 
développer des programmes, des utilitaires, des outils en 
FORTH. Nous souhaiterions pouvoir proposer rapidement une 
disquette contenant ces outils. 


Coté parution, nous ferons un GROS effort pour combler le 
retard. Mais vous qui vous intéressez à l'intelligence 


artificelle et aux systèmes experts, méditez cette phrase 
empreinte de récursivité: 
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FORTH: 


Questions et réponses, R2 R2 RS 
Que des réponses dont deux pour une même question; l'idée débat/forum de cette rubrique est à exploiter. 


Notation algébrique infixée 


LOI DE HOFSTADER: tout travail prend toujours plus de 
temps que celui prévu pour son accomplissement même en 
tenant compte de la loi de HOFSTADER. 


et qui est extraite du livre 'GODEL ESCHER BACH, les brins 
d'une guirlande éternelle! (éditions InterEitions PARIS), 
dont je recommande la lecture en remplacement des 
japoniaiseries et berlusconneries télévisuelles dont nous 
abreuvent abondamment les lucarnes du PAF (et 1à c'est 
trop facile, je ne ferai pas de jeu de mot). 


Co 


Une facon plus habituelle de poser les opérations mintenant disponible sous FORT. Les BASICOIS vont être 


jaloux. 


Assembleur 6809 en FORTH 


Après avoir été diffusé sur SAM et présenté à deux revues informatiques, l'auteur renonce à faire paraitre 
q , P 


de 


ce programme dans la grande presse et en fait profiter JEDI et ses fidèles lecteurs. 


Editeur plein écran pour FB3-6809 


Pour ne plus maltraiter le contenu de vos blors en 40 colonnes. 


La maitrise du graphisme 


Le codage de FREEMAN applicable à l'affichage des caractères exotiques. 


Edition des fichiers compressés en codage de HUFFMAN £ 
Le dernier volet d'un utilitaire avec lequel vous pourrez visualiser le contenu d'un fichier sans avoir à le 


décompresser sur disque. 


Génération de grilles de LOTO 


Si avec ce programme vous décrochez le gros lot, pensez à JEDI, nous manquons de subvention. 


Récréation APL, le crible d'Erathosthène 
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Il y en a que les mots croisés amusent, d'autres se régalent en regardant SABATIER, dans JEDI ce sera APL ou 


rien pour les longues soirées d'hiver. 
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FORTH 


QUESTIONS ET REPONSES 
R2 R2 R5 


REPONSE À LA QUESTION 2 : par C.LEHCLERC (91200 ATHIS MONS) 
Voici les équivalents de INP et OUT du B5X en FORTH: 


HEX 
CRFATE OUT ( port val -—) 


D9 C, EXX 
C1 C, POP RC 
79 C, ID A,C 
Ci C, POP HC 
ED C, 79 C, OUT (C),A 
D9 C, EX 
DD C, EC, JP (IX) 
SMUDGE 
CREATE INP ( port — val) 
D9 C, EX 
Ci C, POP AC 
ED C, 78 C, IN A,(C) 
06 C, OO C, ID CA 
C5 C, PUSH HC 
D9 €, EX 
DDC, BC, JP (IX) 
SMUDGE 
Une bascule MAJ/min en FORTH: 
EX 
: BASCULE ( —) 
FEB1 VO 1 XOR FEB1 VC! ; 


Hectoriennement vôtre! 


REPONSE A LA QUESTION 2 : 
LIMOG 

Cher Hectorien, 

Veuillez trouver ci-joint les réponses à votre double 
question no2 parue dans la revue JEDI de janvier. 


par CLUB HECTOR LIMOGES (87000 


Nous nous permettons de vous adresser ce courrier en même 
temps qu'à la revue afin que vous puissiez en prendre plus 
rapidement connaissance! 


1)Æquivalences INP et OUT: il vous suffit de créer ces 
mots avec du code machine comme suit: 


HEX CREATE OUT SMUDGE ( oct add -—) 
Et C, D1 C, C5 C, 4D C, S9ED , C1 C, DD , 
CRFATE INP SMUDGE ( add -— oct) 
E1 C, C5 C, 44 C, 4D C, 68ED , 0026 , 
C1 C, 5 C, HDD , DIMAL 
L'appel se fera sous la forme: (exemple) HEX O 49 OUT 
DEC IMAL 


2)Bascule MAJUSCULE/minuscule dans un programme FORTH. Il 
y a lieu d'utiliser le miltiflag d'interruptions situé à 
l'adresse &FEB1 en page vidéo et plus précisément mettre 
le bit O à 1 pour passer -en MAJUSCULE et à O pour repasser 
en minuscules et ceci afin de ne pas altérer les autres 
fonctions de ce miltiflag (poker 116 où 117 pour min/MAJ 
obtient ce résultat mis détruit les autres bits s'ils ont 
été éventuellement utilisés). Les codes machines SET No de 
bit pointé par HL et RES (idem) qui forcent à 1 ou O le 
bit de l'octet concerné remplissant bien cette fonction 
nous vous proposons deux routines en code machine: 


: MAJUSCULE [ HEX LATEST PFA DUP CFA ! 
32 C, 0800 , 21 C, FEB1 , CBC, CG C, 
32 C, 0808 , DDC, DC, |]; 

: MINUSCULE | HEX LATEST PFA DUP CFA ! 
32 C, OB00 , 21 C, FEBt , CBC, &6 C, 
32 C, 08 , DDC, BC, |]; 


Nous espérons avoir répondu assez clairement à vos 
questions. Nous nous tenons à votre disposition pour 
d'éventuelles précisions si nécessaires (il y a lieu de 
notre que nous avons fait paraître dans Megahector toute 
une étdude sur les interruptions du 280 et les 
applications au HRX qui permet de faire exécuter plusieurs 
programmes en même temps!!!) 


REPONSE À LA QUESTION 5: par M.PETREMANN (93160 NOISY LE GRAN 8419:8400 


IT s'agit, dans la question de Mr ZUPAN, de réécrire 
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facilement le source d'un mot code avec virgile et c- 


virgule. 


Ce problème est certes intéressant, mais il semble moins 
évident de le résoudre que ne le pense Mr ZUPAN. Une 
solution n'expoitant que des valeurs litérales ne peut pas 
avoir d'utilité pratique pour la simple raison que 
les adresses d'implantation de certaines valeurs risquent 


de varier en fonction de ce qui a été précédemment 
compilé. 
Pour m part, cette idée m'a effleurée avant que M.ZUPAN 


ne la formule dans JEDI. Voici comment j'ai règlé ce 
problème sur l'assembleur 6809 pour THOMSON. 


En premier lieu, on réécrit les mots c-virgule et virgule 
à partir de mots vectorisés: 


DEFER C, 
DEFER , 


Pour ceux qui disposent de l'assembleur FORTH 6409, ce 
travail est déjà fait. Il reste mintenant à définir deux 
routines réalisant les actions primitives de ces mots en y 
rajoutant une option d'affichage du code en cours de 
compilation: 


ac, 

DUP BASE @ >R 

HEX CR 

HERE O <# 58 HOLD # 4 #4 4 A TYPE 
U. C, R> BASE ! ; il 


[‘].C, ASSEMRLER IS C, FORTH 


DUP’ BASE @ >R 

HEX CR 

HERE O <& 58 HOLD 4 4 H À W> TYPE 
U.  , R BASE ! ; 

['] ., ASSEMBLER IS , FORTH 

Pour La version 83-Standard CP/M ou MSDOS, il faudra 
recompiler l'assembleur en définissant au début de 
l'assembleur les mots c-virgule et virgule: 


DEFER C,  DEFER, 
puis reprendre les définitions ci-dessus. Sortir de 
l'édition du fichier CPUSOSO.HX (version CP/M), 


CPUB086.HIK (version MSDOS) et taper: 


BYE 

KERNEL EXTENDBO . HULK 
puis sous FORTH 
START 


ou KERNEL EXTENDS6. BLK 


On se propose ensuite d'assembler la définition suivante 
pour THOMSON, dont l'exécution délivre l'adresse de 
l'octet contenant le point situé aux coordonnées 
graphiques x y: 


HEX 4000 CONSTANT EHCRAN DECIMAL 
40 CONSTANT SCRLAR 


CODE CAIC ( x y -— adr) 
x pshs d pulu 


1 ,u lda  ECRAN #& Idx a,x leax 
SCRILAR % 1da aslb aslb aslb mul 
d,x leax O ,u stx x puls 


rts  HERECFA NEXT END-CODE 


L'opération n IOAD, n étant le numéro de bloc contenant le 
source ci-dessus, affiche octet par octet le code compilé 
ceci par exécution des mots virgule et c-virguile en 
version vectorisée: 


8400: 34 
8401 :10 
8402:737 
8403:6 
8404: A6 
...etc... 
8417:39 
8418:BD Suite P. 4 


B841B:7E 


LES TRAITEMENTS DE TEXTE 
OBJECTIFS ET MOYENS 


par Marc PETREMANN 


Dans les premiers numéros de JEÉDI, nous diffusions un 
programme en FORTH permettant d'effectuer du traitement de 
texte sur ORIC-1. Ce programme certes performant, était 
loin d'être complet si on le compare aux logiciels profes- 
sionnels spécialisés dans ce genre de travail. Au cours de 
notre propos, nous passerons en revue toutes les considé- 
rations à prendre en compte pour faire le meilleur choix 
dans un domaine en évolution constante: l'édition et la 
composition électronique. 


HISTORIQUE PERSONNEL 


Mon premier contact avec un système capable d'effectuer du 
traitement de texte s'est produit lors de la composition 
du livre INTRODUCTION AU ZX-FORTH' (Fd Eyrolles). Cet 
ouvrage a été intégralement typographié par les auteurs 
sur une machine à écrire RANK XEROX 620 (vous savez, celle 
qui, dans la pub, a une touche de magie) À l'usage, ce 
système s'est révélé très rigide. Sa capacité standard est 
limitée à quelques mages seulement. Il permettait néan- 
moins la justification à droite et toutes les fonction- 
nalités élémentaires que l'on est en droit d'attendre d'un 
traitement de texte. Petit avantage, une coupure de cou- 
rant accidentelle n'avait que peu d'incidence sur le texte 
en cours de composition, la machine XEROX 620 sauvegardant 
sa mémoire pendant 2 à 3 mois. 


las de ne pouvoir reprenûre le contenu d'un chapitre en 
entier pour correction éventuelle, nous nous sommes équipé 
pour le second ouvrage 'TOURS DE FORTH' d'un système à 
moins coûteux et plus performant, une BROTHER CE7O avec 
interface parrallèle/série et lecteur de micro-disque. 
Cette configuration pouvait être considérée comme une 
machine à écrire ordinaire ou comme imprimante, option 
dont nous ne nous sommes pas privés d'exploiter. Le résul- 
tat de la maitrise complète de cette machine a permis 
notamment la typographie intégrale de l'ouvrage ‘PROGRAM- 
MER EN LOGIQUE AVEC MICRO-PROLOG'. Pour ceux qui parais- 
sent étonné d'apprendre que ce sont les auteurs eux-même 
qui typographient les ouvrages, je leur signale que beau- 
coup d'éditeurs sous-traitent cette tâche. Il n'est donc 
pas inintéressant pour l'auteur d'assumer ce travail si- 
multanément à celui de création ou de traduction. Dans 18 
cas du premier ouvrage cité, la typographie à rapporté à 
ce jour plus que les droits d'auteur!! 


Dans le même temps, nous démarrions la revue JHDI. Je me 
suis donc équipé d'un système BROTHER EP44 et qui a servi 
à la composition de nombreux numéros. Cette machine, bien 
que légère en performances et eñ capacité mémoire, est 
dotée en standard d'un interface RS$232 programmable en 
vitesse et protocole. Les piles assurent la sauvegarde des 
sélections. Le programme KERMIT du no 18 de JEDI a été 
listé en couplant la machine EP44 à un modem 300 bauds et 
avec pour seul interface de visualisation de transmission 
un écran ICD de 1 ligne de 8 caractères! 


la machine EP44 a été couplée au T07 via 
permettant le transfert des textes 


Par Je suite, 
l'interface série, 
composés sur THOMSON. 


Et maintenant, JEDI est composé à l'aide de WORDSTAI sur 
système BONDWELL. Pour information, le système BONDY 7, IT 
est un portable avec écran ICD 25 lignes, 80 caractères 
fonctionnant sur batterie. Un lecteur disquette 3':/2 
complémentaire peut être connecté; le hasard veut que le 
lecteur SPECTRAVIDEO MSX fonctionne très bien sur le BOND- 
WELL IT sans adaptation aucune, ce qui porte la capacité 
disque du BONDWELL II à 720K. 


À l'usage, WORDSTAR se révèle tellement pratique que tous 
les textes sont saisis et composés à l'aide de ce program- 
me, qu'il s'agisse de textes documents ou de programmes 
source: GABASETI, PASCAL, Assembleur, BASIC, etc... La 
frappe en deux colonnes par page c'est également WORDSTAR. 


LES OBJECTIFS D'UN TRAITIMENT DE TEXTE 


Pour choisir un bon traitement de texte, il faut en pre- 


mier lieu connaître parfaitement l'usage que l'on en aura. 
En effet, il est inutile de se lancer dans l'acquisition 
d'un équipement coûteux s'il s'agit de composer quelques 
lettres. Par contre, la composition de documents de type 
professionnels exige une qualité et des performances im 
possibles à réaliser à l'aide de matériel ‘bas de game". 


Considérons pour un premier exemple, un usage très ponc- 
tuel, la composition de documents et courriers. Ce type de 
travail peut être assumé sans difficulté par un système 
autonome: machine à écrire à mémoire. On en trouve à des 
prix très abordables (BROTHER EP44, CANON, etc...) dans 
une échelle de prix comprise entre 1400 et 4000 Fr. 


Pour second exemple, les textes à traiter sont des brouil- 
lons destinés à être remaniés fréquemment, mais ne conte- 
nant que du texte. Pour celà, un ordinateur devient indis- 
pensable. Les textes peuvent être des documents ou des 
listings. Le traitement de texte doit par conséquent sa- 
voir traiter différemment ces deux types de textes. Soyez 
exigeants avec les fonctionnalités du traitement de texte: 


- gestion par blocs 

- fusion de texte 

- justification par bloc 

— recherche, insertion, 
de mots 


suppression de mots où groupes 


Les options complémentaires ne seront pas à négliger: 


- passage de paramètres 

- contrôle de la pagination 

- contrôle de la forme (gras, souligné, interlignage..) 
- césure automatique sélectable 

- correction automatique sélectable 


Pour dernier exemple, l'utilisateur désire intégrer des 
schémas, dessins, photos digitalisées. En excluant les 
systèmes typographiques spécialisés (WANG pour exemple), 
des programmes ‘hauts de gamme' permettent ce genre de 
travail sur des micro-ordinateurs: PAGE-MAKER sur Mac 
INTOSH, PERSONAL PUBLISHER sur IBM. Dans une moinâre mesu- 
re certains systèmes, tel THOMSON TO9, sont également 
équipés de traitement de texte permettant le mixage tex- 
te/graphisme. Inutile de préciser que les prix des logi- 
ciels de composition représentent un investissement non 
négligeable. 


LES MOYENS A METTRE EN OEUVRE 


Soyons objectifs, si vous disposez d'une machine à écrire 
et d'un ordinateur sans traitement de texte, il est inu- 
tile d'en acquérir un pour taper épisodiquement une lettre 
de 10 à 20 lignes. Passez-vous d'une acquisition que vous 
n'amortirez jamais. Si vous savez programmer, à la ri- 
gueur, vous pouvez créer votre propre traitement de texte. 
Si vous l'écrivez en BASIC, vous êtes très courageux: 


- vous devez pouvoir entrer du texte ‘au kilomètre'. 


- après saisie, on doit pouvoir se positionner à n'impor- 
te quel endroit du texte. 


- en pointant en un endroit quelconque du texte, on doit 
pouvoir surimprimer, détruire ou insérer des caractères, 
une ligne où un bloc de caractères (plusieurs lignes). 


Arrivé à ce point, en BASIC pour les personnes très coura- 
geuses, il faut pouvoir aussi disposer de: 


-— la sauvegarde et chargement sans altération. 


- impression avec/sans justification de tout ou une par- 
tie du texte. 


- découpage en pages avec ou sans numérotation. 


vous n'êtes pas découragés et qu'il vous 
achevez votre 


Après çà, si 
reste encore un peu de place en mémoire, 
création en disposant des fonctions de: 


- mise en gras, souligné, italique, etc.. et toutes op- 
tions typographiques dont dispose votre imprimante. 


ceux qui diposent ou envisagent l'acqui- 
ii faut considérer sur 


men 


Pour les autres, 
sition d'un traitement de texte, 
quel système il est destiné à fonctionner: 
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_ un mdèle dit ‘familial' est à exclure d'office surtout 
gi l'on ne dispose pas d'au mins un lecteur de disque. La 
capacité mémoire doit être confortable, un minimum de 48K 
est requis pour pouvoir héberger à la fois le traitement 
de texte et le texte. Le système d'exploitation doit être 
compatible avec une large gamme de matériel. Les machines 
trop exotiques sont à proscrire, même si une démonstration 
époustouflante laisse loin derrière les autres programmes 
de traitement de texte: le modèle XWRTPRT de MACHIN ne sera 
peut être plus fourni par le constructeur dans 6 mois, le 
vendeur en faillite (si, si, çà existe...) après avoir 
vendu 10 exemplaires seulement de.son produit ‘haut de 
gamme, haute performance, petit prix'. Je n'hésiterai pas 
jei à citer le cas du NEWBRAIN, une machine très performa- 
nte et dont l'importateur a encaissé des sommes considéra- 
bles pour des lecteurs disques dont les clients attendent 
toujours la livraison. J'ai eu l'occasion, à l'époque, 
d'essayer leur ‘traitement de texte (700 Fr TIC)' vendu 
sans documentation et sur cassette. Le traitement de texte 
en question était écrit en BASIC et faisait 3k de capacité 
mémoire. En deux mots: une escroquerie. Heureusement, ce 
programme a eu le temps de faire des petits, histoire de 
lentrer dans les frais (pour les puristes s'interdisant de 
faire de la piraterie, je signale que l'on ne peut porter 
tort à un circuit commercial défaillant, ilya des nuan- 
ces à apporter à la notion de copie pirate. me 


A signaler dans l'affaire NEWBRAIN, les efforts méritoires 
de l'association PARIS-MICRO pour assurer la survie de ce 
système en y adaptant un lecteur disque au format OSBORNE 
et le CP/M, ce qui a permis d'entretenir ensuite de bon 
rapports entre PARIS-MICRO et OUF. 


Votre système doit disposer des caractères accentués. Si 
ce n'est pas le cas, vérifiez si vous disposez d'un utili- 
taire (SETUP sur AMSTRAD par exemple) permettant de trans- 
coder votre clavier (pavé numérique transformé en clavier 
délivrant les caractères accentués). 


Tous Les caractères visualisés sur l'écran doivent corres- 
pondre à ceux imprimés. Sinon, vérifier si votre traite- 
ment de texte dispose d'un utilitaire de transcodage. Si 
ce n'est le cas, vérifiez si votre système d'exploitation 
dispose d'un ‘handler' d'impression ou s'il dispose d'un 
utilitaire de transcodage (toujours SEIUP sur AMSTRAD) . 


Après traitement, 
Pour ce faire, 
vants: 


votre texte doit pouvoir être imprimé. 
prenez en considération les points sui- 


Vérifiez si votre imprimante est parfaitement compatible 
avec votre système. Si la majorité des traitement de texte 
transmettent en format 7 bits, il n'est pas exclu de 
devoir disposer du format 8 bits. Ici encore, la liaison 
parrallèle ou série est délicate. Si par exemple vous 
disposez d'un système AMSTRAD CPC, faites transformer 
votre système pour qu'il sorte les caractères sur 8 bits 
en parrallèle. Si vous disposez en plus d'un interface 
série, vous pourrez transmettre vos textes en format ASCII 
vers des systèmes différents (imprimante série, modem, 
autre système de traitement de texte...). 


Si vous avez des fichiers de grande capacité à éditer, 
choisissez de préférence une imprimante disposant d'un 
tampon. Si ce n'est le cas, vous pouvez utiliser un utili- 
taire simulant un tampon d'impression (DSPOOL sur IBM et 
compatibles) ou acquérir un tampon d'impression (voir le 
catalogue de la Sté INMAC, 21 PARIS-NORD). En effet, il 
n'y a rien de plus frustrant d'attendre plusieurs minutes, 
voire plusieurs heures (100 pages sur SEIKOSHA ou MANVES- 
MAN en qualité courrier) pour pouvoir reprendre 1? ain 
sur votre système. 


Quoi qu'on puisse dire, aucune imprimante matricielle ne 
peut concurrencer la qualité d'une imprimante ‘à marguéri- 
te. Le choix douloureux entre imprimante à aiguilles où à 
marguerite peut être tranché en acquérant simultanément 
une imprimante à aiguille et une imprimante à marguerite. 
En effet, pour le prix d'une imprimante à aiguille ‘haut 
de gamme' vous pouvez disposer de deux imprimantes: 


- l'imprimante matricielle pour tirer les Listings et 
brouillons de texte. L'option d'impression graphique per- 
mettra l'impression de graphiques et dessins (cas de la 
SEIKOSHA SP1000, MT80, EPSON, Apple IMAGEWRITER...). Le 
prix des consommables et la vitesse d'impression amortis- 
sent rapidement une machine en utilisation intensive. 


TN 
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- l'imprimante à marguerite pour tirer des documents 
définitifs et de qualité. Un large choix de roues d'im- 
pression permet de personnaliser vos documents. Choisissez 
une machine dont le pas d'incrémentation horizontal et 
vertical peut être programmé. Ainsi, une imprimante de 
type QUME peut imprimer jusqu'à 80 lignes, 110 caractères 
par lignes, si elle est équipée d'une roue d'impression 
SQUARE 12/15 (pim=pas d'impression) en programmant le pim 
horizontal à 9 unités et le pim vertical à 7 unités. 
Certaines pages de JHDI sont composées de cette manière, 
ce qui évite de passer par la photoréduction. En, option, 
une boîte de boules Quies, car les imprimantes à margue- 
rites sont très bruyantes. 


- l'imprimante à laser. Un investissement certes, mais de 
plus en plus abordable, alliant les avantages de l'impres- 
gion matricielle (texte et graphisme) et la qualité de 
l'impression à marguerite. Un silence incomparable. En 
outre, dans le cas d'édition de documents en petite quan- 
tité, vous économiserez des frais de reproduction par 
photocopie. Pour exemple, l'imprimante CENTRONICS Laser a 
une capacité mémoire de 1Moctets, imprime à la vitesse de 
8 copies minutes et peut ètre connectée à tout système en 
sortie parrallèle ou série (fiche AMPHENOL-CENTRONTICS) . 
Pour les documents recto/verso, il faudra bidouiller un 
peu les fichiers texte de manière à sortir une série de 
feuilles correspondant aux pages paires, puis retourner la 
série éditée pour les pages impaires. 


Les performances de votre imprimantes doivent être en 
rapport avec celles de votre traitement de texte. Pour 
exemple, WORDSTAR ne travaille que sur des textes alpha- 
numériques, alors que WORD autorise l'insertion de carac- 
tères semi-graphiques. Dans le premier cas, pratiquement 
n'importe quel type d'imprimante convient (mtricielle, à 
marguerite, laser), alors que dans le second cas, elle 
doit être dédiée IM et compatibles. Donc un plus qui 
restreint le choix du système et des moyens. À noter, pour 
WORDSTAR, que Les commandes de ce traitement de texte ont 
été reprises en partie dans l'éditeur de Turbo-PASCAL et 
dans le traitement de texte PRACTITEXTE (éditeur FIL) pour 
THOMSON TO7/T09 ou IBM. 


Dans le cas de traitement de texte permettant le mixage 
texte et image, on ne peut prendre qu'une imprimante 
matricielle dédiée (image-Writer pour Mac-Intosh par exem- 
ple) ou Laser avec logiciel d'adaptation. Dans le cas du 
THOMSON TO9, ce choix se limite à l'imprimante du cons 
tructeur (une SEIKOSHA SP1000 rebaptisée avec EPROM modi- 
fiée pour THOMSON). 


Pour ceux qui ne disposent pas de logiciel permettant le 
mélange texte-image, qu'ils se consolent, il suffit de 
réserver dans le texte la place pour leur dessin, puis à 
l'édition, rajouter le dessin par collage. La photocopie 
ou l'impression feront le reste. Comment croyez-vous, que 
nous procédons pour JEDI. L'investissement se limite à une 
paire de ciseaux et de la colle. Pour les encadrés, je | 
conseille le ROTRING (pas un logiciel, mais un stylo à 
encre de chine) et de supprimer les bavures avec du Ti- 
pex. Pour les gros titres, voir les catalogues LETRASET et 
MECANORMA. Ces techniques ‘manuelles' restent valables 
même pour un ouvrage typographié destiné à l'édition pro- 
fessionnelle. Elle a l'avantage de résoudre tous les pro- 
blèmes avec des moyens de fortune mais efficaces. Prenons 
je cas d'un ouvrage informatique, vous courrez mins de 
risque d'erreur si vous Coupez et collez vos listings dans 
votre texte que si vous Les recopiez. 


LES SATELLITES DU TRAITEMENT DE TEXTE 


En général, un traitement de texte peut se suffire à lui- 
même, que ce soit pour traiter des documents ou des pro 
grammes. Dans ce cadre d'activité, la maintenance d'un 
programme à l'aide d'un traitement de texte sera facili- 
tée. Pour exemple, renommer une variable dans un programme 
sera exécutée sous WORDSTAR en activant la fonction ‘QA 
(recherche et remplacement) de chaînes. Dans le cas de 
programmes très longs, le positionnement à un endroit 
quelconque sera effectué par la fonction fQF. À noter qu 
sous TURBO-PASCAL, vous pouvez disposer des mêmes fonc- 
tions que WORDSTAR, mais avec une capacité mémoire limi- 
tée. En effet, certains langages acceptent des fichiers de 
commande de taille quelconque (cas de BASE II). WORDSTAR 
ou WORD seront donc appropriés au. traitement des fichiers 
de commande dBASE. De même,. vous pouvez traiter les £fi- 
chiers source BASIC, FORTRAN, C, Assembleur, LOGO, PROLOG. 


Mais un autre intérêt de WORDSTAR (ou WORD) est de_permet- 
tre 1a fusion de fichiers. Pour exemple, prenons un petit 
programme PROLOG dont on aura vérifié le fonctionnement à 
l'aide de l'interpréteur PROLOG; on se propose, dans le 
cadre d'une notice utilisateur d'intégrer le listing de ce 
programme. Pour ce faire, il ne sera pas nécessaire de le 
retaper. Il suffira d'utiliser la commande suivante: 


...texte... avec l'exemple suivant: 
«FI programme. PRO 
...-suite du texte... 


L'impression sera activée par l'option M pour MAIIMERGE. 
Sur le papier, WORDSTAR insérera automatiquement le lis- 
ting du programme à l'emplacement marqué par '.Fl'. 


De même, on peut insérer des données traitées par un 
fichier de commande dBASE: 


SET ALTERNATE TO DOCUMENT. TXT 
SET ALTERNATE ON 

... traitement ... 
SET ALTERNATE OFF 


puis sous WORDSTAR: 


"Cher client, voici le détail des opérations effectuées 
durant le dernier trimestre sur votre compte: 
F1 | 


Le montant est à nous faire parvenir sous quainzaine" 


Deco MENTITAT 


Pour exemple, un autre cas où l'interaction entre traite- 
ment de texte et SGBD (Système de Gestion de Base de 
Données) est fructueux, est l'affectation d'un fichier 
texte en tant que donnée. Ainsi, dans une base de données 
quelconque , disons un catalogue de produits industriels, 
il s'agit d'affecter un commentaire à une gamme de pro- 
duits spécifiques. Mais ce commentaire peut faire dans 
certains cas deux lignes, dans d'autres cas trois pages. 
Or sous dBASE II, on ne peut gérer de champ de taille 
variable. Mais par contre, on peut entrer la référence du 
texte contenant le commentaire. Ainsi, à partir de trois 
fichiers texte contenant trois commentaires: 
DOC1 . TXT DOC2.TXT DOC3.TXT 

on affectera dans un champ nommé arbitrairement DOCAFFER 
(pour document afférent), sous dBASE, une des trois réfé- 
rences ci-dessus. A l'édition, le fichier de commande 
éditant les références d'un produit sera du style: 


SET ALTERNATE TO FICHES.TXT 
SET ALTERNATE ON 

.+. traitement ... 
? "FI "+DOCAFFER 


... suite traitement ... 
SET ALTERNATE OFF 


et en reprenant le contenu du fichier texte ainsi généré, 


FICHES.TXT en l'occurence, on y verra: 


...texte... Les conditions d'achat de ce produit sont: 
<FI DOC1.TXT 
...suite texte... 


Ce texte est à retraiter par MAIIMERGE pour une édition 
définitive. 


Et à partir d'un tableur (CALCSTAR, SUPERCAIC, MULTI- 
PLAN...) on peut éditer un tableau ou une partie de ta- 
bleau en format texte et le reprendre dans un texte. 


Ainsi, le traitement de texte n'est plus à considérer par 
le gestionnaire comme un accessoire, mais comme un tronc 
commin à partir duquel il pourra valoriser le résultat de 
ses traitements. 


LE CAS WORDSTAR 


Le logiciel WORDSTAR s'adapte à pratiquement toutes les 


situations: 


- traitement de programmes 

- lettres types et personnalisées 

- maili 

- édition de rapports, d'ouvrages 

- traitement complémentaire de données issues de SGHD ou 
tableurs 


et toutes applications dont vous sentirez la nécessité. 
Toutes les commandes WORDSTAR sont accessibles à partir de 
codes de contrôle. La version WORDSTAR 2000 permet plu- 
sieurs milliers de combinaisons de commandes et dispose 
des extensions suivantes: 


- mini tableur intégré. 


- indexation par mot; on pointe un mot à indexer. A 
l'édition, WORDSTAR 2000 fabrique automatiquement un in- 
dex. 


- communication renforcée avec les autres programmes et 
les interfaces. 


- mise en évidence des manipulations de bloc par colora- 
tion du texte à l'écran. 


WORDSTAR 2000 est disponible sur les systèmes IBM XT et AT 
avec configuration mémoire de 256k minimum. 


Pour édition laser ou matricielle, le logiciel de pointe 
pour l'édition de documents. Fonctionne sur IBM PC avec 
une configuration mémoire minimale de 512k, souris recom 
mandée: 


PERSONAL PUBLISHER fonctionne à l'aide d'icones à cliquer 
(l'esprit du Mac est passé par là). Les textes apparais- 
sent tels qu'ils seront imprimés. Une fonction zoom permet 
de visualiser un détail du texte. Différentes fontes de 
textes sont disponibles et traitées dans des tailles va- 
riables. 


L'insertion d'un dessin indente automatiquement le texte 
autour du dessin. Les dessins proviennent d'une bibliothè- 
que préprogrammée ou définis par l'utilisateur. 


PERSONNAL PUBLISHER ne traite pas les programmes. 


LE CAS DU TO9 


l'esprit du Mac a frappé. Le TO9 ou TOH 
est équipé en standard d'un traitement de texte. Les 
textes sont affichés tels qu'ils seront imprimés. Le mi- 
xage texte-graphisme est possible. Les images devront être 


Encore une fois, 


préalablement créées à partir du logiciel COLORPAINT. Ces 
images seront sauvegardées avec l'extension MAP. 
La gestion des fonctions du traitement de texte intégré 


est réalisée à partir du clavier, de la souris ou du 


crayon optique. 


On peut critiquer le fait que certaines options n'agissent 
pas localement. Ainsi, la justification à droite agit sur 
l'ensemble du texte lors d'un déplacement de marge. De 
même, la tabulation automatique en première ligne ne per- 
met pas la composition de texte 'à l'américaine', 


CAS DU PCW 8256 ET PCW 8512 


AMSTRAD a fait très fort en proposant un ensemble inté- 
grant un traitement de texte très performant. On peut 
critiquer cependant l'obligation d'utiliser l'imprimante 
AMSTRAD, les fonctions de transcodage pour une autre im- 
primante étant inexistant. 


AMSTRAD autorise le traitement de textes ASCII (listings 
source), mais les commandes ne se rapprochent d'aucun 
utilitaire connu. Le passage d'un traitement de texte 
AMSTRAD à un traitement de texte disponible sur une ma- 
chine plus 'pro' sera peu évident. 


pe 
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LA DOCUMENTATION DES FICHIERS 


De plus en plus souvent, la diffusion d'un logiciel du 
domaine public ou en freeware est accompagnée d'un texte 
joint au programme et disponible en tapant une simple 
commande : 


TYPE fichier.ext 


Ainsi, sur F63, le fichier de documentation est visible en 
tapant sous MSDOS: 


TYPE README. PC 
et sous CP/M: 
TYPE FORTH.DOC 


Ces deux fichiers ont été générés à partir de WORDSTAR (il 
y a des commandes 'point' dans les fichiers texte) et 
imprimés à l'aide de MAILMERGE sur le disque. 


L'option d'impression sur disque permet ainsi de joindre 
une documentation complète à un produit sans recourir à la 
photocopie ou à l'imprimerie. A charge pour l'utilisateur 
d'imprimer par ses propres myens le document en question 
(en utilisant WORDSTAR ou la commande TYPE sous CP/M ou 
MSDOS) . 


Une disquette de 360k remplace un document de près de 140 
pages. . 


C'est également à l'aide d'un traitement de texte que sont 
générés les fichiers d'aide (extension HLP). Un sous- 
programme extrait les pages permettant d'aider l'utilisa- 
teur au niveau du programme considéré. 


INTERACTION TRAITEMENT DE TEXTE ET TELEMATIQUE 


Le MINITEL est un média dont la capacité d'information 
reste encore très peu exploitée. Il est tout à fait conce- 
vable de générer des rubriques reprenant le contenu de 
fichiers ASCII générés à partir d'un traitement de texte. 


Pour ce faire, il faut à la saisie sélectionner sa marge 
de droite à 40 caractères et écrire son texte. 


Plus tard, lorsque l'utilisateur désire consulter un bul- 
letin, le système télématique ouvre le fichier contenant 
le bulletin en question et le diffuse par tranches de 20 à 
24 lignes. Une pause en bas de page attend la frappe 
<suite> ou <retour> ou en option <page nm. 


Ainsi, de nombreux textes peuvent être repris à défaut 
d'être saisis et être simplement formatés en 40 caractères 
par ligne. Dans le cas de transmission V21 (80 car/ligne) 
on pourra envoyer par paquet de deux lignes s'il n'y a pas 
de retour chariot dans le texte original. 


À l'inverse, le texte de l'article proposé dans JEDI 32, 
pages 3 et suivantes, d'origine OUF a été enregistré au 
format ASCII depuis un modem avant d'être remis en forme à 
l'aide de WORDSTAR. Donc, si les listes de numéros sont 
erronnées, ce ne peut être qu'une erreur de saisie prove- 
nant de OUF et non de JEDI. Le programme de commanication 
utilisé en la circonstance s'appelle MODEM7 (sous CP/M) et 
enregistre la transaction par activation de “Y après avoir 
affecté un non de fichier. 


Ce procédé de réception de données a également permis 1e 
recevoir. un fichier CP/M d'extension HEX, lequel a ‘t‘ 
débarrassé des présentations d'usage à l'aide de WORDSTAR. 


Et pour finir, la liste des numéros de la page 3, JEDI 32, 
peut également être traitée et mise en forme à l'aide de 
WORDSTAR pour être 'digérée' par dBASE II. Exemple: 


19 44 224 641 585 ABERDEIN UK V23 PRESTEL 


devient après remise en forme: 


19 44 224 641 585 
ABERDEEN 

UK 

V23 

PRESTEL 
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Le logiciel dBRASE peut lire et traiter des fichiers prove- 
nant d'autres logiciels que dBASE. Dans ce cas précis, 


dBASE traite un fichier au format ASCII manipulé à partir 
de WORDSTAR. 


Cette dernière manipulation est également possible avec 
toutes données ASCII provenant d'une transaction télémati- 
que! 


- catalogues, 

- cours de la bourse, 

- annuaire téléphonique ou TELETEL (AST3 sur 3615). Je 
vous laisse imaginer ce que l'on peut faire en indexant 
ensuite un tel fichier et en y rajoutant ses propres 
données complémentaires. 

- etc... 


En BASIC, ces données peuvent devenir des DATAS. En effet, 
il suffit de remplacer à l'aide de WORDSTAR le retour 
chariot situé en début de ligne (fin de ligne précédente), 
ce qui donne dans le dernier exemple: 


- appel de la fonction recherche/remplacement 
SEARCH: °N 


REPLACE WITH:°N DATA %# 
OPTIONS :5 


(taper *P°N) 

(taper *P°N DATA) 

(nombre de remplacements) 
ce qui donne: 

DATA 19 44 224 641 585 
DATA  ABERDEEN 

DATA UK 

DATA V23 

DATA PRESTEL 


Il ne reste qu'à mettre les numéros de ligne et à fusion- 
ner avec le reste du programme BASIC. 


À noter que si vous vouler grouper plusieurs DATAS sur une 
même ligne, il suffit de taper: 


- on pointe au début du premier DATA 
= recherche/remplacement *QA 


SFARCH:°N DATA ( taper “P°N DATA 


) 
REPLACE WITH:, ( taper , ) 
OPTIONS :4 { à répéter 4 fois ) 
DATA 19 44 224 641 585,ABERDEEN , UK, V23, PRESTEL 


Cette opération peut être renouvélée autant de fois qu'il 
y a de groupes de DATAs. 


Voilà. Maintenant, si à partir 
contenant plein de DATAS que vous voulez 
BASE, utilisez WORDSTAR: 


d'un listing BASIC 
récupérer sous 


DATA COCHON, VACHE, POUSSIN 
et activez recherche/remplacement par °OA 


FIND:, 
REPLACE WITH: °N 
OPTIONS :2 


ce qui donne: 


COCHON 
VACHE 
POUSSIN 


En conclusion, ce rapide survol a permis de démontrer 
qu'un traitement de texte est avant tout un utilitaire 
sérieux aux utilisations variées et non seulement um sim- 
ple gadget. 


Arthur C. CLARKE a écrit 2010 ODYSSEE TI sur traitement de 


texte. Ainsi la boucle se referme, car on ne parle jamais 
aussi bien d'un ordinateur, surtout 4e HAL, qu'en les 
connaissant. 


FORTH Htaltion algébrique infisxée 


Dans le numéro 26, nous vous gro sions un programme de 
gestion de variables locales le principal avantage 
permettait d'accroitre considérablement la lisibilité des 
programmes écrits en langage FORTH. Mais cette lisibilité 
ne serait pas complète si on ne permettait pas l'écriture 
des formules arithmétiques en notation algébrique conven- 
tionnelle. 


Divers procédés ont été publiés, dont un proposé par C.H. 
MOCRE ÎLE CONCEPT FORTH par P.COURTOIS en annexe, un 
compilateur BASIC simplifié). La méthode la plus simple 
ubliée à ce jour est celle proposée par M.STOLOWITZ 
FORTH Se et que j'ai adapté au nouveau standard 
F83. 


Les routines proposées ci-après fonctionnent aussi bien 
sur F65 CP/M que sur F83 MSDOS. Elles peuvent très facile- 
ment être adaptées aux standards FIG et 79-STANDARD. Le 
listing: 


N fonctions algebriques infixees 


CREATE OP 44 ALLOT 
: PINTERP ( pfa ---) STATE @ IF , ELSE EXECUTE THEN 
: OPP@ ( --- adr) OP DUP @ + 
: »>OP C pfa niveau ---) 4 OP +! OPPe 2! 
: OP» CSS), OPP@ 2Q -4 OP +! DROP ?INTERP 
: LEV? { --- niveau) OPP@ © 
JA BEGIN LEV? WHILE OP} REFEAT FORTH ; IMMEDIATE 
TRAITE { pfa ---) 20 : 
BEGIN DUP LEV? > NOT 
VHILE DR DR OP> R> R> REPEAT >OP ; 
INFIX Cn --- <mot> <mot> en compilation) 
" CREATE SWAP , , IMMEDIATE 
DOES> TRAITE ; 
N fonctions algebriques infixees 
VOCABULARY ALGEBRE ALGEBRE DEFINITIONS 
7 INFIX X * T7 INFIX / / 6 INFIX + + 6 ISFIX - - 
5 INFIX > » 5 IRFIX < < 5 IRFIX = = 


4 INFIX NOT NOT 3 INFIX AND AND 2 INFIX OR OR 


CE'T CR 1 >OP ; IMMEDIATE 

) { FORTH ] BEGIN 1 LEV? < WHILE OP> REPEAT 
1 LEV? = IF -4 OP +! ELSE TRUE ABORT" manque (* THEN 
IMMEDIATE 


FORTH DEFINITIONS 


AC OP 44 @ FILL ALGEBRE ; IMMEDIATE 


Une fois le contenu de ces écrans compilé, vous pouvez 
écrire des formules algébriques en notation polonaise 


inverse, ce qui est la norme FORTH, ou en notation algé- 
brique: 
A (3+5)*x(7-2) JA. affiche 40 
ou 
: TEST ( — n) 
A (3+5)*x(7-2) 1; 
Si on a la curiosité de décompiler la définition de TEST 


par SEE TEST, on obtiendra à l'affichage: 
: TST35+72-%; 


Les deux mots clés sont AÏ et JA et entre lesquels est 
écrite la formule en notation algébrique. 

Attention, les niveaux de parenthèses sont limités par la 
capacité de l'espace mémoire réservé dans le tableau OP 
(écran 2, ligne 1). En cas de débordement, prévoir un 
espace plus grand qui soit un miltiple de 4. 


La notation algébrique ainsi définie ne perturbe aucun des 
mécanismes conventionnels de FORTH, que ce soit en inter- 
prétation ou en compilation. Eh outre, elle est applicable 
aux tests logiques: 


= 


par Marc PETREMIANN 


"AÎ ( FLAG à AND FIAG? à ) OR TESTS à JA IF. 
En utilisant les mécanismes des variables locales, on peut 


écrire ce genre de test: 


AÛ TRUC < 5 AND MACHIN = O JA IF … 
Et l'affectation après une opération algébrique devien- 
drait: 


AÛ ACHATS * TVA / 100 JA TO TAXES … 


Pour les barbus de la programmation, on pourra vectoriser 
les fonctions générées lors de la définition des opéra- 
teurs algébriques de manière à traiter des nombres simples 
précision, double précision ou en virgule flottante. Exem- 
ple: 


si l'opérateur + est DEFERÉ, on l'initialise par 
"+ AIGERRE IS + FORTH 


" D+ AIGEBRE IS + FORTH 
" F+ ALGEBRE IS + FORTH 


en simple précision, 
en double précision, 
en virgule flottante. 


Ainsi, l'initialisation des opérateurs peut être activée à 
partir des équivalents de A[ et JA, que l'on peut écrire 
sous la forme suivante: 


Al et JA en simple précision, 
Di et [D en double précision, 
F[ et IF en virgule flottante. 


mots dont je vous laisse le soin de la définition. 


À 


Suile de la page 2 


On se 
valeurs 
recompi lé 


rend facilement compte, si l'on sauvegarde les 
sous forme litérale, que ce code ne pourra être 

qu'à l'adresse &100h et suivantes. Il faudra 
analyser mandellement le code ainsi généré et pointer 
toutes les valeurs correspondant à des adresses 
susceptibles de varier. Ce travail effectué, la nouvelle 
version de CAIC devient: 


VARIABLE CAIC -2 ALLOT HEX 
34 C, 10 C, 37 C, O6C, A6 C, 4t C, 

8E C, ERAN , 30 C, 86 C, 86 C, 

SCRLAR C, 58 C, 58 C, 58 C, 3D C, 30 C, 
BB C, AFC, CC, 35 C, 10 C, 39 C, 


HERE CAC 2- ! BD C, ! CAIZ , 

TE C, 0099 , DECIMAL 
Or, ce travail, s'il reste rentable pour une où deux 
définitions, ne peut être appliqué valablement à des 


programmes de plusieurs centaines d'octets. C'est pourquoi 
je reformalerai la question de M.ZUPAN en proposant . 
l'étude d'an moyen ,d'implanter l'assembleur assez loin 
dans le haut de la mimoire, puis une fois les définitions 
en code mchine assemblées dans le dictionnaire normal, de 
déconnecter l'assembleur pour récupérer la place prise en 
mémoire. Bon courage. 


UN ASSEMBLEUR 6809 EN FORTH 
par Marc PETREMANN 


Diffusé depuis un an en disquette, l'ASSEMRLEUR FORTH 6409 
pour THOMSON, adaptable aux autres systèmes équipés du 
6809, n'avait qu'une documentation restreinte. Voici enfin 
ces explications détaillées dont la publication sera 
suivie du listing dans le prochain numéro de JHDI. 


Créer un véritable assembleur autorisant la définition de 
macro-instructions, gérant des structures de contrôle, qui 
est intimement lié ai vocabulaire d'un langage évolé, 
c'est à dire autorisant la mixité des instructions entre 
FORTH et l'assembleur, et capable de générer un code objet 
en une seule passe semble relever de l'utopie. C'est 
pourtant ün tel assembleur que nous vous proposons dans 


ces pages. Sufe paye AS 
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PASCAL Edibon de Fichiers compressés par inde  ZANG 


4$A+; 
PROGRAM PROMPRSES: iAffichage de fichiers texte COmPResses 3 
AR 

EUFF : ARFAY C9..11517 ÜF EYTE: 

HOM1,HOMS : STRIHSLCIE I; 


CH. CHI : EYTE; 
TAMPOH : ARRAY C1..1287 (OF BYTE: 
PTFICH : BYTE: 
FICH ‘ FILE: 
PTBIT : EYTE; 


SAVEEYTE : EYTE: 
BYTECOUNT : INTEGER: 


SAVEBIT : BYTE: 
I : INTEGER: 
LENTAB : INTEGER: 
POSCUR : EYTE: 


UHTILFLAG : FODLERH: 


PROCEDURE OPEHIH: 
BECIH 
ASSIGHCFICH, HOMI :: 


{SI 
RESET{FICH 3: 
{#I+} 
PTFICH:=129; 
PTEIT':=128; 
SAVEBYTE :=0 ; 
BYTECCOLNT : =ÿ : 
SAVEEBIT:=Q 
END; 


PROCEDURE READCHC VAR CH:BYTE 
BEGIH 
IF PTFICH>129 THEH 
BEGIN 
BLOCKREADS FICH. TAMPOH, 1 à 
PTFICH'i=]l 


END ; 

CH : = TAMPOMNCPTEICHI: 

PTFICH:=SNCCC PTFICH 2 
END; 


FUNCTION GETEIT : EDILEAH: 
BEGIH 
IF PTRIT=128 THEH 
BEGIH 
RERDCHE SAYEBTIT 1; 
PTBIT':=I 
END ELSE PTBIT:=FTEIT 5HL 1: 
GETRIT: = SAVEBIT ANG PTIT 1 
ED : 


FUNCTION EVALUE : EYTE: 
LABEL FIN, LOOP: 


‘HR I : INTEGER: 
FLAG : BYTE: 
BEGIH 
l'=0: 


P: 
IF GETBIT THEH JL:sl+é: 
FLAG : =BUFFLSUCCE I 07; 
IF FLAG>=129 THEH GÜTO FIH: 
l'SBUFFLIIA EHL &: | 
GOTO LOOP; 
FIN: 
IF FLAG=#FE THEH EVALUE:=#in ELSE ÉVALUE: SBUFFEII #ÛF 1 


END ; 
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FUNCTION GETCHARCYAR CH : BYTE à : EtIOLEAH; 
VAR 
CHIi:CHE : BYTE;: 
BEGIN 
IF BYTECOUNT=G THEH 
BEGIN 
CH: =E VALUE : 
IF CHSÈ69Q THEN SAVEBYTE:=CH ELSE 
BEGIH 
CH1 : SEVALLE ; 
IF CHisQ THEN SAVEBYTE:=ÛCH ELSE 
IF CH131 THEH 
BEGIH 
BYTECOUNT : =CH1-2;: 
CH: =CAVEBTTE 
END ELSE 
BEGIH 
CH: SEYALUE : 
SAVEBYTE : =CH 
MD 


END 

END ELSE 

BEGIN 
CH: =SAYVEBYTE ; 
BYTECOUNT : =PRED£ EYTECOLHT 5 


END ; 
IF CHe&iA THEN GETCHAR: FALSE ELSE GETCHAR:2TRUE 
END) 


BEGIN 
IF PARAMCOUHT=0 THEH LUNTILFLAG:=FALSE ELSE 
BEGIN 
UNTILFLAG : TRUE ; 
NOM1 : =PRRAMSTRE 1 5 
END ; 
HRITELN; 
REPERT 
IF HOT UNTILFLAG THEH 
2EPEAT 
WRITES'#" 3 
READLHC NON 1 
UNTIL MOMI<2""; 
JPENIH: 
IF IORESULT<54 THEH 
BEGIH 
HRITELHÉ ‘File not four 
CLOSELFICH5 
END ELSE 
BEGIN 
READCHC CH 5; 
READCHC CHI 3; 
IF CCHC>H76 5 IR CCHISÈSEF ï THEH 
BEGIN 
RITES CHE CH 3 
UHILE CHI£2#S1H C0 
BECIN 
WHRITESCHRC CHI 555 
IF HOT EUFCFICHi OR CPTFICHE1E3 1 THEN REARDCHC CHI: ELSE CHi:=#18 
END 
END ELSE 
EEGIH 
REACCHE CH 3; 
READCHE CH 2: 
HONG : ="; 
FEADCHE CH 3 
HHILE CHS54 O0 
EEGIH 
HOME : HOMB+CHRC CH 13 
REACCHCCH à 
EHC: 
HRITELHS'Hom original : ‘. HOME): 
READCHE CH à: 
LEHTAE : =CH; 
READCHE CH 35 
LEHTAE : #6 LENTAE+CHEZSE 54 ; 
IF LEHTABZG THEH 
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ÉEGIH 
HPITELNC/ERFEUR -- LENTABSE! 7 0; 
HALT 

EHD; 

FOR 1:=9 TO LENTAB-1 DÙ 

BEGIH 
READCCHC CH: 
EUFFEI1:=CH 

EHC ; 

HRITELH :; 

POSCUR : =1; 

MHILE GETCHARE CH Ci 


11H 
Tee THEN BEGIN POSCUR: 21; MPRITECCHRE CH) EHC 
ELSE 
EEGIH 
IF CH=9 THEH 
BEGIH 
l:=8-CPOSCUR-12 MOD 8; 
FOR CHisi TO I CO HRITEL* ‘5 
POSCUR : &POSCUR+T 
END ELSE 
ÉEGIH 
HRITESCHRE CH 32: 
1F CH£916 THEH POSÈUR : =SUCC€ POSCUR 9 
EHC : 
IF POSCUR>ES THEH POSCUR : =POSCUR-55 
EHD 
EHC 
EC; 
CLOSEXFICH %: 
HEITELM 
EHC 
UHTIL UHTILFLAG 


EHD. 


FORTH ge pleine page [EPP] par B. LANGEY 


It n'y a rien de plus éprouvant pour le malheureux qui n'a pas encore acquis son compatible que de voir s’asenuiser de jour en 

jour le nombre de pratiquants du bon vieux Forth-83, classique, éprouvé, mais éclipsé dans l'esprit de beaucoup par le 
F-03/Laxen-Perry pour IBM et consorts... 

Quant à notre ani Petresan, il ne jure plus que par son compatible, sesble-t'il,et il s'éloigne de tous les sans grades qui en sont 
encore à leurs vieux 2-88, 6889 et autres 4592, les paléographes!! 


Pour tous ces antropopithèques dont je fais partie, voici, je l'espère ja solution à un problème irritant, celui de 
l'édition pratique d'écrans Forth. 


L'éditeur de ligne classique, est finalement assez lourd à manier. Un éditeur plein écran est tellement plus agréable que, 
lorsqu'on en a un, on éprouve guère le besoin de revenir à l'édition ligne à ligne. Voici donc un éditeur “Pleine Page” adapté aux 
habituelles 48 colonnes des machines courantes en France, I1 peut être assorti d'utilitaires (Copie, T1}, 


Je suis parti du Forth-83 de Wilson M. FEDERICI, et de l’idée que sur 25 lignes de 48 colonnes, il y avait 188$ octets, 

au lieu des 1824 classiques (16 X 64 }. 

Cela représente la perte des 24 derniers octets, mais Sur un écran de Source, on en perd bien d’autres en "Blancs d'agrémentation, 
pour {'indentation entr'autre, De plus sur une ligne où l'on case glorieusesent un JF où un BEGIN, on perdra aoins de caractères si 
elle est de 48 colonnes au lieu des usuelles 64 colonnes, Au total on aura un écran plus lisible et un source plus "nourri si on le 
souhaite ainsi, sais ‘qui peut le plus..." 


Come je voulais un soft aisément adaptable à d'autres machines, je n’y ai inclus aucune procédure de changement de 

couleurs, ou de suppression-restitution du curseur, qui rendent cependant le Iogiciel bien plus agréable d'emploi. Pour ceux qui 
désireraient une version couleur, j'en tiens une à leur disposition, celle que j'utilise avec non Squate tqui a dit "Qu'est-ce que 
c'est que Ça?°). 
Sur cette aachine je dispose de 16 couleurs en direct st de 113 codes ASCII imprimables en plus des classiques 31 codes de cossande 
de # à 31. J'ai donc utilisé comme clés d'accès aux ordres de l'éditeur les codes inhabituels, ou ceux qu'utilise Je noniteur-sachine, 
de cette aaniére on évite d'avoir une distorsion entre les copsandes Editeur et le maniement courant du clavier. On trouvera dans le 
P6 ja liste des codes utilisés, dans les fonctions CASE/Type Eaker qui ventilent les commandes sur le clavier. 

Ii doit être possible sans grande difficulté de resplacer les codes utilisés par d'autres, en cas de nécessité, 


Il est, en tous cas, indispensable de rétablir dès l'implémentation un jeu d'instructions couleurs permettant, grâce à la couleur 

du curseur, de 5e rappeler quel est le aode d'action sélectionné. Dans l'état actuel, EPP indique son node de travail par la position 
du curseur, sais c'est insuffisant, la confusion étant possible entre tous les aodes d'écriture, À titre de suggestion je signale 
ci-après les couleurs que j'utilise sur la version Squale, sur ‘papier® vert olive: 


Lecture. 

Ecriture normale, 

Mode “Insertion”, 

Hode "Delete®. Lietin > 
Mode "Paquet" / entrée et sortie. En 

Mode “Paquet” / sélection du paquet à transférer. : 

Sortie de l'éditeur. Suite page AS 


Curseur marron 


Curseur rouge 
Curseur sauve 
Curseur jaune 
Curseur bleu 

Curseur marine 
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Ecran Ma 1 { Cospléments 1/4} 
s VAR variable ; 5 CTE constant ; 
s DEC decinal ; : EXE execute ; 
DE] sit ; : RELL 7 enit ; 
: CLS 12 eait ; !BS  Senit ; 
#® RC  1Jesit ; 
17 cte TIT !LF If esit ; 
27 cte C-MAME ! 94 94 oait ; 
48 cte C/L 484 c/lt ; 
1924 cte B/BUF #8 cl - ; 
939 cte TOTEC 
EX, es} 


din @c-name - c/1 / it c/l 4 
c-nase + Din ! ÿ immediate --) 


\ Bloquera le compilateur jusqu'à la fin 
\ de la ligne, permettant ainsi la aise 
\ en place de commentaires non compilés, 
\'juste en dessous du not dont cossence 
\ la definition, 

\ Les sicro-définitions ci-dessus per- 

\ mettent in gain de tenps en cours 

\ d'exécution du programe. 
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1 Y/N Ü-- #19} 
\ Laisse le flag -1 si “Oui”, et sinon 
\ ---laisse Le flag #. Est récursif----- 
cr 5 spaces 
.* {Olui ou [Njon ?" space key 
dup dup + 189 112 ( 
ifiti=cr 
else drop bell .* “o/n !* c/18 
do bs loop recurse 
then ; 


‘ ELD U--) 
NHsreres Chargement écran courant------- 
scr & load ; 


var CPTR 
S INCR L'cptr +! 5 3 DECR -t cptr +! 
\sseeness Ajustement du conpteur-------- 


: ?FREE {--) 


58 8 256 - here - b/buf / cr 
.* Nosbre de blocks Libres : * , 
cr; —-) 
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: HOME U--} \ Envoi du 
c/1 dup 1 dup 6 5 #8 do, \ curseur 
loop ; \ en haut à 


\ gauche de 

# AT Uxy--) \ l'écran, 
hose 1 3 # do dec : 100p ; \ et place- 

\ sent du 


\ curseur depuis HOME, Ces 2 procééures 
\ sont adaptées au soniteur du Squale. 


sx {nab--#19) 
\---"True" si n inclus entre a et b---- 
>r over r) Cr } r} and ; 


5 2P-RT { nab - nnab } 
\ Abréviation pour les compléments à ia 
\ structure CASE/Eaker. 


\ nonmommmmnmmanmmmnmenmmmmmem— 
2 pick -rot ; 
ï: NON Uni n2 -- fig} 


\résesss Inverse flag de l'égalité------- 


i -) 
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\ Variables utilisées, 

\ nuosnncnnsncscscssnormsmmmenmenmesense 
var SCA \ Pointeur écran 
var CTR \ 2èse Compteur 

var NES \ Compteur 

var SITE \ Site du curseur . 
var VEC \ Vectorisation 

var VECI \ de la 

var VEC2 \ bascule 

var VECS \ Read/brite. 


var EDPAD 24 c/l \ Pad pour partie 
# allot \ éditable écran, 


\ 
var LP 45 atiot \ Pad de ligne, 


‘ RASEDPAD 1 -- ) 
\ 
24 c/} # edpad over blank edpad ! ; 


CTe cptr @; \ Abréviation, 
INSI site +! jÿ --) \ Actualise SITE 
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: €0F {n--) 

\ Pour ‘n” plus petit que la valeur qui 

\ figure devant "(9F” ( Conse pour *(" ) 

4 ?pairs compile over cospile } \ Oui! 
compile ?branch }sark s352 
compile drop 5 ; isaediate 


_ 


5 )0F Un--) 
\ Pour ‘n° plus grand que là valeur qui 
\ figure devant ")0F' { Cosse pour ‘)‘ ) 
4 ?pairs compile over compile € \ Oui! 
cospile ?branch )sark Ses 
compile drop 5 ; inmediate 


1 )COF {n-) 
\ Pour'n'"conpris entre les 2 valeurs qui 
\ figurent devant ")(OF* { Voir: ">" ) 
4 ?pairs compile 2p-rt coapile } 
compile ?branch }sark 
coapile drop 5 ; inmediate 
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: ECRAD { -- adr } scr 8 block ; 

: CURAD { -- ar } site @ ; 

* DEBAD ( -- adr } ecrad c-nase + ; 
* LINAD ! -- adr ) debad totec + ; 
S MEN (Cadr -- } site ! ; 


\ Jeu d’ adresses-repères dans l'ordre : 
\ écran, curseur, début, et fin d'écran, 


DEBU ({ -- } debad ses 1 #2 at ; 


: BOTN | -- } limad 39 - sen { 25 at ; 
\ Positionnement du curseur en début et 
Arras en fin travail éditeur, -------- 


# AL Un--} 

\ ----Déternine le nombre d’alinéas, ---- 
# do cr cop ; 

* NAME= ( -- ) 


14 1 at pad c-nase expect 
pad ecrad c-nane caove debu ;  --) 
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: ADLICU { -- adr } 


Vosrrstes dr !'oct. ligne curseur------- 
curad dup debad - c/l mod - ; 

‘ EMDLI {-- adr } 

Vi arress Adr fin ligne curseur---------- 


adlicu 48+ ; 


: MEMLIN fes: 

Nine Méaorise ligne dans LP--------- 
atiicu dup Lp cfi 
caove rc nes i 


: L)PAD U--) 
Lp 42 blank menlin ; 
: PADIL {--) 


\ ----Entrée et sortie Pad de ligne----- 
re ip adlicu dup ses c/] cacve 
tp c/1 type bs rc ; 


* LASTLIN {-- #19) 
\ Laisse ‘True* si curseur sort du cadre 
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5 ENT {= 


hose cils ." Ecran N'° scr 8 4 ,r 
ecrad dup c-name + swap space 
do I c@ dup 34 148 )C not 
it drop bl I c! update 
else 
then 
loop 1 2 at debad sen ; 
SORT? (on fig -- } 
Actualise car. à la position curseur . 
ons où non selon je #lag.--------- 
if 2drop bell 
else insi : 
then ; 
: (LIN Un--) 
dup curad + debaë ( sort? ; 
: DIM Un --) 
dup curad + limad } sprt? j --} 


Pr 


Selon ‘n° , nombre de cases dont va 5e 
déplacer le curseur,calculent s'il y a 
sortie de !' écran considéré comme une 
seule ligne de 968 caractères 


ec 
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DEB-FIN { -- } 
\ Bascule du curseur lére/dernière ligne 
debad totec 2/7 + curad } if botm 
else debu 
then ; 
t SORT ( --) 
\ duitte lect. ou écrit, {selon vecteur) 


bots exit ; 
‘ ECRI (ce -- c@} 
\ Hénorise le caractère entré au clavier 


dup dup 31 148 >C if curad c! 
then ; 
: BLINE { --) 
\ Blanchit ligne et sésor. liqne curseur 


re c/l spaces adlicu dup sex 
c/i blank ; 
5 SUPLI ( -- ) 
\ Supprime ligne,ranène curseur ler car. 
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! MEMNIN {-- 7) 

\ Hénorise fin d' écran avec ligne curs. 

\ mmmsvommmmsmmemnmassmenmcememmmmenmtse— 
rasedpad adlicu jisaë over - swap 
over edpaë 2+ suap caove eépad ! ; 


" “LINE (--1 
\ Supprise ligne curseur, remonte écran. 
\ cnmmmmmmcmmmmmmmsmemmmmsmenmmmmmsess— 
lastiin 

it supli 


else menin edpad dup c/1 24 + 
adlicu dup men 2 pick € 49- caove 
rc dup c/1 2+ + swap 8 48- type 
lisad c/h t- - c/1 blank cl spaces 
1 curad debad - c/1 / 2+ at 

then ; ÿ 


5 MEMEX ( -- 1) 
\esess Décale contenu EDPAD de C/L.----- 
edpad dup dup 2+ adlicu dup 
men 484 rot € 45- caove 
dup 2+ swap 8 48- type 
1 curad debad - c/] ? 2t at ÿ --) 
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5 LDPA { -- } curad Lp ct® caove : 
ÿ PALI | -- } Lp curad ct® caove ; 
\ Aller ou retour ligne (-} pad de ligne 
\ des caractères qui suivent le curseur, 


\ nonmmmmssenmmmememmemmemmemcmemmes…… 
5 2HEB {--) 

Nussssess Stoppe en fin d'écran.------"-- 

curad {+ limad = if debu exit 
then ; 
5 =  ( -- #19) 
\ ----"True" si curseur sur un bianc---- 
curad c8 bl = ; 
: COMPTE { -- } 


\ Compte les car, jusqu'en fin de ligne. 
8 cptr ! endli curad 

begin over over = not 

while incr 1+ 

repeat 2drop ; 
RECPAD ( ) Lp 45 blank compte ; 


TITSIRITLLÉSEIINCESSÉSSEIOTSSSÉERFESSSLTERSS SIT ISS TETE SIIESILES 
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# INSCAR { -- } 
VoPasenssss Mode insertion, ------------ 
koacur recpad li)pa 
begin key dup 254 = not 
while dup 31 148 > 
if curad dup adlicu Î- 
dup c/1 + X 
if drop ecri , incvar éecr pa)li 
Lp cte type ct® # do bs 
100p 
else 2drop 
then 
eise dup 
case 8 of lcur actual endnf 
9 of rcur actual endof 
18 of deur actual endof 
ii of ucur actual endaf 
7” {3 0f alinea actual endof 
endcase 
then 
repeat drop koacur ;j #3? 
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! VEXEC {on -- ) scr +! ver & exe ; 
\ Incrésente ‘SCR' pour exécuter vecteur 


\ =mmmmmmemmmmemmnememmemenmmsesnnmnnnns 
5 LINE --) 

\ Blanchit ligne curseur et décale écran 
Nimes zs vers Je bas, --------- 


lastlin if supli 
else nenin bline nenex 
then î 
5 KOACUR € -- }  curad c@ à bs ; 
\ Enet le caractère pointé par le curs, 


\ommmmmmmmmeenemememmmmmmmemmmenmnmnenn 
“ RAI --1 
\ Efface fin de ligne, aprés le curseur. 
\o=mmmmmmmmmmmmmmmnmmmmmmmsemmnmmmmsenne 
#endli curad do bi dup 1 c', it 
loop # do bs 
Jo0p ; 


INCVAR ! -- ) 
\ Si possible incrémente SITE du curseur 
curad Î+ limad } if bell 

else { insi 

then ; -—} 
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1 TO)SP ( -- ) 
\ Saute au prochain blanc suivant un mot 


begin ?deb ?=bl 

while 9 rcur recpad 

repeat begin ?4eb ?7=bl not 
while 9 rcur recpad 


repeat ; 
: DELCAR {| -- ) 
\ Efface un caractére, et entraine vers 
\ la gauche je reste de la ligne. 


curad adlicu ) 

if koacur recpad lipa 

begin bs -{ insi pa)li Lp ct@ type 
space bi ct@ curad + c' ct@ 1+ # 


do bs 
100p 
key 127 non 
adlicu curad = or 
until 
then koacur ;  --} 
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var PDEB \ Pointeur sur début paquet 


: (PAQ {--) 
\ Repérage début du paquet à transiater, 


koacur adlicu pdeb ! ; 


PAQ) { -- ) 
Repérage de fin du paqu: à traaslater 


_ 


adlicu c/1 1- + pdeb & swap 2dup { 
if over - edpad 2+ 2dup )r dr 
swap caove r) r) 2- ! koacur 
else 2drop ! 2 at 8 pdeb ! 
debad men koacur 
then ; 


PAQ* {=}: . 
Restitution du paquet à nouvelle place 


me 


edpad ?+ dup adlicu over 2- ê 
dup r caove r@ type r} insi 
rc adlicu mem 5  --} 
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mes Cum mousesnss 


mm. 
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cms 


mme 
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\ 
\ 
\ 
\ 
\ 
\ 


UCUR Un -- ) -4# (lin ; 

DCUR {on --}c/] )lis ; 

LEUR tn--) -1 (lis ; 

RCUR [n--} {lin ; 

Mouvements curseur vers haut {up}, bas 
tdoun), gauche (left), droite (right). 
VALID {n--} 

---Prépare validation après travail--- 


drop update ; 

ALINEA tn -- ) 

Passe à la ligne si c'est possible . 

adlicu 48+ dup lisad } if drop bell 
else aen , if 
then ; 

TOBOT { -- ) 

Placement curseur à la sortie éditeur. 


save-buffers 1 24 at ; 


REDEX 1 -- ) 


RAZEND ( --) 
“Blanchit® la fin de l'écran depuis la 
ligne où se trouve le curseur,celle-ci 
étant incluse, La zone effacée est co- 
piée dans EDPAB, à disposition. 
---(15 . efface ja ligne courante) ---- 
mesin lastlin 
it supli 
else rz)li linad 
adlicu c/l + 
d&bic! 
loop 15 
then ; 


KOAPAD { -- ) 
Affiche le contenu de "EDPAD" au début 
de ligne où 5e trouve le curseur. 


edpad 2+ }r adlicu Jisad over - 
rc dup r@ swap type 
r) -rot caove debu 5 --) 


PAQUET { n -- ) 
Translation d'un paquet de "Source", 
forsé d’ un groupe lignes repérées par 
" Ctrit( ‘ pour ière ligne et "Ctri+i* 
pour ja ligne de fin.On ressort le pa- 
quet à la nouvelle place curseur par 
“Ctrit*., sage possible aux écrans 
.ssediatement orécédent ou suivant. 
koacur rc adlicu mes 

begin key dup 

case 

cur* ) 1$# of deur endof 
curv } {1 of ucur endot 
ct+( ) 28 of valid -{ vexec endot 
ct+) )} 38 of valid 1 vexec endof 
ct+* } 94 0f pag“ drop endof 
ctt( ) 123 of (pag drop endof 
ctt} } 125 of pag) drop endof 
cttES} 254 of drop koacur 


exit endof 
drop \ Dans les autres cas--- 
endcase 
again ; -—) 
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: NOMME: U ler-écran Last-écran -- } 
\ Baptise n écrans du sèse titre et leur 
\----- attribue un No consécutit-------- 


Ep c/1 2/ blank swap dup sta ! 
over Swap - £+ nbs ! 
Lp tit expect + sca © 
do I block dup 
c-nane blank 
124 over c! 
b! over i+ c' 
Lp over 2+ dup pr 
span € caove 
bl r) span € + dup ctr ! 
lt c' I Lt sta € - dup 99 )} 
if ." Nb screen trop grand!" 
cr 2drop leave 
else # (445 8) ctr 9 2+ 
swap caove 
4ctr84tc! nbs & 
At bectr05t+ 
swap caove drop 
then update save-butfers 
loop 5 --} 
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: CON Î n ) case ( cu”) 8 of Icur endof 
cu} 9 ot rcur endof 

cuvi 18 of deur endof 

cu“) 1f of ucur endof 

RET} 13 of alinea endot 

ESC) 27 of valid tobot quit endot 
DEL} 127 of delcar drop endot 

“N° } 14 of koapad drop endot 

“0 } 15 of razend érop endof 

“P) 16 of supli drop endof 

“8 ) 17 of pad)! drop endnf 

) 19 of -line érop enéof 

} 28 0f rz)li drop endof 

) 25 of menlin drop endof 

} 26 of tline drop endof 
l 
l 


> 
NE = ON D 


a 


*-) 


28 of valié -1 vexec endof 
29 of redex drop endof 


“}) SSof valid 1 vexec endof 
°9) 3j of deb-fin drop endnt 
*" 3} 9é ot drop paquet endof 
{*$4 } 138 of to)sp drop endot 
{S$e ) 137 of nase= drop endof 

{ “Es) 254 of inscar drop endof 
ecri 1 incvar endcase ÿ ##} 


D er ER NL ER AR Re RS dt et ne 
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5 SMRIT ( -- ) 
\ Procédures d'écriture sous Editeur PP 
\ ct: COMNANDES ci-devant, 


1 2 at debad men 
begin key dup cos 
again ; 


: READ { -- ) 
\ Procédures de lecture sous Editeur PP 
\ cossandes notées ci-dessous, 


c/1 25 at 
begin key 
{ Esc ) case 27 of tobot quit endot 
{cur*) 8 of -{ vexec endof 
{ cur}} ÿ of 1 vexec endof 
{°R ) 23 of vec2 & vec ! 
“urit endof 
endcase 
again ; -) 
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: AFECR ! -- } 
\ Affiche l'écran pour lecture/écriture, 


ent debad dup men dup totec + swap 
do ! 8: loop ; 


5: READ  ( -- ) atecr “read ; 
5 MRITE { -- ) afecr “writ ; 


5 RE Un -- ) ser ! 
\ Vectorisation passage écriture)lecture 


[°] read vec ! # vexec ; 


: M {n--) ser! 
\ Vectorisation passage lecture)écriture 


l'J write vec ! # vexec ; 


: JBUFS ( --) 
\ Passage de 2 à 3 buffers permanents. 
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s ERE { -- ) scr ê re ÿ \ Pour lire 
\ et 
ï ER  -- ) ser 8 mu ; \ pour écrire 


\ Ces deux cossandes incluses on dispose 
\ d'un jeu de quatre cossandes pour en- 
\ trer et sortir de l'Editeur trois sots 
\et un touche : 


\ ERE = écran courant, lecture seule. 
\ EWR = écran courant en écriture. 


= Quitte édition,retour à Forth. 
\  ELD = Sous Forth, charge l'écran 
courant 


* READ VECI ! ‘ VRITE VEC? ! 
? *READ VECI ! SBUFS --) 
\ Chargement initial des vecteurs, 
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312 cte BLK/DRV 


: rs # oftset !; 
5 BRI bik/drv oftset ! ; 


! CD0-BL) {ecr/fin ecr/deb -- } 
Ve *Blanchissage” d'écrans-------- 
dup 8= if drop 1 
then 
do cr ,° Blanchit * 137 
1 block b/buf blank 
update save-buffers 
100p ; 


: BLDSK {--) 

\ Blanchira tous les écrans d’un disque, 
\ placé en DRI, en s'adaptant au format, 
cis ." Attention Système en DR#? 0K2* 
ÿn it dri bik/drv { (do-bl} 

then ; 
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* BLSCR { ecr ecr2 -- ) 
--"Blanchit” depuis ‘ecr" à "ecr2"---- 
dri lt suap Cdo-bl) ; 


LS 
— 
7m 
mm 


U--) 
Henss Blaachit l'écran courant. ------- 
dri scr € dup biscr ; 


. 


COPIES ! orig fin cible -- 
Copie x écrans de "orig* à "fin' vers 
Vues cible” jusqu'à "cibletx"-------- 
-rot 1+ suap 

do I over 2dup cr ." Copie * 

swap 3 .r ." sur " 3 ,r 
copy update save-buffers 1+ 
J0op flush drop ; 


mm. 


1) LECTURE 

Le curseur ‘£Edition/Lecture” est en bas 
et à droite de l'écran. 

Seules répondront (Sécurité) les touches 
suivantes : 


“Escape” Fin de lecture,retour à Forth,. 
nysenves Le curseur passe en bas/gauche 


POSSIBILITES de NODIFS : 


“Curseur vers gauche": -)Ecran précédent 


CTRL#W : Passage de lecture à écriture. 

rien le curseur passe en haut et à 
gauche. On peut commencer à 
éditer l'écran courant. 


Toutes les autres touches seront invali- 
dées ce qui évite toute sanneuvre intes- 
pestive, 


2) ECRITURE 

Le curseur "Edition/Ecriture" est situé 
en haut à gauche. Commandes de l'édition 
par ]5 touches suivantes : 


“Curseur vers gauche’: dito 
"Curseur vers droite”: dito 
“Curseur vers haut ": dito 
“Curseur vers bas  ": dito 


-Cannandes Simples : 

"Escape" Fin d'écriture,retour à Forth, 
“Return® Passage à la ligne. 

“Delete” Passage en node “Delete' 


-Consandes à deux touches: 

Toutes les touches désignées ci-après 
sont frappées avec appui simultané sur 
la touche Contrôle, Cela est rannelé 

par l'accent circonfiêxe conventionnel. 
{Esploi de Najuscules ou Minuscules,) 
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“NX Restitue la fin d' écran némorisée 
par le suivant , et ce à partir de 
la place actuelle du curseur , sur 
l'écran choisi (le même ou autre), 
Si le curseur est plus bas qu'à la 
position de séacrisation , le trop 
plein de lignes n'est pas affiché, 
sais le contenu du tampon spécial 
n'étant pas modifié , elles y sont 
toujours accessibles par le renou- 
vellement de a commande. 


«9  Eftace toute la fin d'écran depuis 
le début de ligne où se trouve le 
curseur . Nais tout ce qui est ef- 
facé est mésorisé et disponible 
pour un rappel par “N . On ménori- 
se pour recopier ailleurs par la 
succession “0 et “N, (Sans toucher 
au curseur qui 5’ est placé en dé- 
but de ligne autosatiquesent), 


*P Bianchit la ligne où 5e trouve le 
curseur,qui est envoyé en début de 
ligne, sans en sauver le contenu. 
Ne touche pas au reste de l'écran. 


*&  Restitue la ligne sénorisée par *Ÿ 
en écrasant l'actuel contenu de la 
ligne où 5e trouve le curseur .Ren- 
voie celui-ci en début de ligne. 


*S  Suppriue la ligne où se trouve le 
curseur, qui disparait, 
Fait resonter d'une ligne toute la 
fin de 1’ écran, et le curseur ré- 
aparait en début de la ligne qui à 
remplacé celle qui a êté effacée, 


*T Le curseur reste en place et toute 
la tin de ligne est effacée , sans 
sauvegarde, 
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*Y  Mémorise le contenu de la ligne où 
se trouve le curseur,qui 5e trouve 
renvoyé au début, la ligne n'étant 
pas modifiée, 


°7 Le curseur disparait. À son ancien 
emplacement est crée un ligne de 
blancs, tout l'écran est décalé 
d'une ligne vers le bas, y compris 
la ligne où était le curseur, et 
celui-ci réapparait en début de la 
ligne blanche créée. 
Si la dernière ligne {1= 24) était 
occupée, elle est perdue, 


") Passage à l'écran suivant en res- 
tant en écriture.Sauve Le travail. 

a Passage à l'écran précédent en 
restant en écriture. Sauve aussi, 
Dans les deux cas le curseur 5e 
positionne an haut à gauche ce qui 
est la sarque de "Ecriture". 
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“Cu) (Soit Ctrit*Curseur à droite) : 
Quitte le node Ecriture" et passe 
en sode Lecture”, Attention: SANS 
SAUVEGARDE de l'écran qui vient 
d'ètre édité ce qui permet de re- 
venir au contenu ancien de l'écran 
après avoir sauvé le travail qui 
vient d'être fait ( *0 avant *Cu) 
puis Esc , EE pour vider les but- 
fers, ERE pour revenir en lecture, 
choix d'un écran vide, “W pour re- 
venir en "Ecriture®, “N pour reco- 
pier le travail récent , et retour 
à l'écran dont on aura voulu gar- 


der l'ancienne versign,) , 

7 Bastule {ère-case-lère-ligne ’ 
ière-case-dernière-ligne . 

a Passage en Node “Paquet” . 
*Esc Passage en sode "Insertion : 


Cf:Wode "Paquet'et node”Insertion" 


Ces commandes nécessitent l'appui simul- 
tané de CtrltShift (ci-après: C+S) et d° 
une troisièse touche: 


C+S+4 Saute-nouton,depuis ja place actu- 
elle du curseur, de sot en mot, 1] 
ne fonctionne que de gauche)droite 
Pour reprendre au début de ligne , 
faire "Return° et taper un coup de 
curseur vers le haut, 


C+S+tt Passage en node "TITRE". 
cf'aode "titre", 
Pour toutes ces coamandes : codes ASCII 


disponibles décimal) sur écran 28/Ecr. 
et 21/Lecture, 


Cosnandes ECRITURE 
MODE INSERTION. 


C'est une Bascule, 

Pour y accéder et en sortir: CtritEscape 
La frappe des touches positionnant le 
curseur, et l'alinéa par “Return', sont 
tes seules qui ne donnent pas lieu à af- 
fichage. Toutes les autres touches sont 
normalement actives,nais en node Inser- 
tion, et les lettres qui disparaissent 
en fin de ligne à droite sont définiti- 
vesent perdues, 


La couleur du curseur devient rouge con- 
tout caractère inséré, C'est la aarque 
du sode “Insertion", A toute relecture 
ultérieure, les caractères auront repris 
leur teinte noraale: marron sur papier 
vert-olive clair, 


Cousandes ECRITURE 
MODE TITRE 


On y entre par la commande CtSt# . 
On en sort par ‘Return. 


C'est un EXPECT de 27 caractères.Le cur- 
seur n'est donc pas “transparent* et les 
seuls caractères nésorisés seront ceux 
que vous ailez taper ; Seront invalides 
tous les caractères qui étaient en place 
{ ancien titre } et que vous auriez pu 
avoir l'inpression de “laisser”, 


Tout titre doit cosmencer par le carat- 
tère dit Scratch" c-à-d *\* qui bloque- 
ra la cospilation depuis le scratch in- 
clus jusqu’ à la fin de la ligne-titre. 


Voyez aussi le titrage automatique des 
séries d'écrans consécutifs par la fonc- 
tion NOMME: accessible hors "Ecriture". 
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Cossandes ECRITURE 
MODE PAQUET 


On entre par la commande * Ctrt+' * 


Le mode Paquet est prévu pour sélection- 
ner un paquet de source qu'on va définir 
afin de le transiater ailleurs, 


Huit cosmandes toutes autres invalidées: 
Cur* Montée d’une ligne. 

CurV  Hescente d'une ligne. 

Cte+Esc sort du node Paquet } Ecriture, 
Ctr+( Sélection début paquet 

Ctr+} Sélection fin du paquet 


Ctr+* Le pagiet est restitué à la ou - 7 


velle place du curseur.Etrasement 
de ce qui était à la place que va 
occuper le paquet . {Le prévoir‘) 
Ctr+) Passage à l'écran suivant. 
Ctrt( Passage à l'écran précédent. 
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Commandes ECRITURE 
MODE DELETE 


On y entre par ja touche “Dei”. 
On en sort en tapant toute autre touche. 


En aode ‘Delete', toute frappe sur la 
tauche "Del" fait reculer d’ une case la 
série de caractères comprise entre fin 
de ligne et curseur, 

Le début de ligne constitue une butée 
que le curseur-locomutive ne peut fran- 
chir. 

A cet endroit si l' on insiste sur ja 
touche ‘Del' cela a le sême effet que la 
frappe d’une autre touche fait sortir du 
aode Peiete, = 

On est revenu en ‘Ecriture normale* 


Ten! N°34 Ms A387 
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Cet éditeur ‘PP" offre un certain nosbre 
d'utilitaires,qui sont expliqués dans le 
Source. 11 s'agit de : 


Pour passer de Forth à 1’ Editeur pleine 
page on dispose de quatre mots : 


ERE Passe sous “Editeur PP* en Lecture 
seule . Affichage de !' écran cou- 
rant . { Celui dont le No est dans 
la variable systèse SCR). 


NOMME: € Ler-écr dern-écr -- ) 

qui baptise Iles n écrans séparant 
les deux numéros sapilés , ceux-ci 
inclus , d'un sabre non . Ajoutera 
au nos un numéro d'ordre et, après 
une barre de fraction, le total de 
la série baptisée. 

11 est iapératif de taper "Return° 
après le *:" de NOMME: ,et un nou- 
veau "Return dès la fin du titre. 


EVR Passe sous Editeur PP en Ecriture 
avec marron en haut à gauche, 
C'est l'écran courant qui est of- 
fert à l'édition, 


RE { n -- } Passe en LECTURE de l' écran 


dont le nunéro à été espilé, 


Sont aussi disponibles: 


W {n -- } Passe en ECRITURE de l'écran 
dont le nunéro à été enpilé, 


NIPE (--} 


NOTE Lorsqu'on vient de quitter Editeur 
PP par ‘ Escape * on peut charger 
l'écran courant par ELD 


Surte de le PRg2 AO 


COPY 
BLSCR { ecl er2 -- ) COPIES { abn--) 


(ab --) 


De plus la possibilité de supprimer le curseur avant toutes les tâches d'affichage augsente beaucoup lisibilité et rapidité des dits 
affichages, Bien entendu on rétablira le curseur à la fin de chaque tâche, Cela aussi doit être installé. 


J'ajoute que les compléments à la structure "Eaker’s CASE" sinpiifient l'esploi de celle-ci, 


YIN, quant à lui, est récursif et ne décale pas l'affichage, en cas d'erreur de frappe à la réponse, 


Je tiens enfin à rendre hommage au resarquable travail du "Dear Wilson‘ qui est trés satisfait de savoir que son 6889/Forth-83/Flex 
est connu, utilisé et apprécié en France, 11 est de bon conseil, et ne manque jamais de répondre aux courriers, surtout quand ils 
demandent un conseil, 11 vient de mettre au point un utilitaire de transtert de groupes d'écrans sur le disk, qui utilise comme buffer 
le Dictionnaire! 11 n'est pas piqué des hannetons' je le cosnmuniquerai à ceux que ça intéresse. on 

De mèse,aon traitement de texte, élaboré pour une NT-88, travaillant en francais, et adaptable sisplement à toute autre isprisante 


est aussi à la disposition de ceux qui en feront la demande à JEDI, 11 est en Forth, ai-je besoin de le préciser! 


Enfin, ma sadestie ne soutfrira pas de toute critique ou suggestion, car je sais très bien que EPP est anéliorable. Et je serai 


heureux de savoir ce que les uns où Îles autres proposent. 
Anicalement à tous. 


Bernard LANBEY 


Adresse utile pour les adeptes du 6889: 


Wilson M. FEDERICI 
1298 NV Grant 
Corvallis OR 97338 
USA 


Avec notre assembleur écrit en FORTH, vous pourrez créer 
des mots dont la définition peut faire moins de dix octets 
et vérifier leur bon fonctionnement de suite, puis les 
intégrer en temps que sous-programmes dans des définitions 
plus générales. Attention, cet assembleur n'inclut pas de 
moniteur, mais le langage FORTH dispose d'aides à la mise 
au point qui ne sont pas inintéressantes. 

Suite de a age F 


CONCEPT DE BASE 


L'idée de départ est de substituer du code michine à toute 
valeur représentant un opérateur, en exécutant un mot 
chargé d'implanter ce code dans le dictionnaire. Exemple: 


HEX 
: rts 39 C, ; DECIMAL 


Mais définir sous cette forme tous les mnémoniques 
d'assemblage risque d'être une opération longue et 
encombrante. Il est plus pratique de définir un mot de 


création de mémoniques: 


: IN 
CREATE C, 

DOES> @C, ; 

HEX 39 INH rts DECIMAL 


EE ————_—————_—_———— — 


Cette apparente simplicité de définition, applicable aux 
opérateurs utilisant l'adressage inhérent, n'est pas aussi 
aisément applicable aux autres modes d'adressage. Il faut 
considérer trois catégories principales d'opérateurs en 
fonction de leurs modes d'adressages: 


— ceux ne nécessitant aucun opérande, C'est le cas des 
opérateurs utilisant l'adressage inhérent. 


— Ceux qui sont utilisés en adressage direct, étendu ou 
indexé exclusivement. 
— Ceux qui sont utilisés en adressage immédiat où en 


commun avec les adressages direct, étendus où indexé. 
Ne sont pas inclus les opérateurs de branchement 
conditionnel et inconditionnel. 


Si la définition des opérateurs travaillant en adressage 
immédiat, étendu et direct ne pose guère de problème, il 
n'en est pas de même pour l'adressage indexé. La 
résolution de toutes les combinaisons de ce mode 
d'adressage, très riche en possibilités, représente une 
bonne part du programme assembleur. 


Sarte page À 
LE CHOIX D'UNE SYNTAXE ASSIMRLEUR 


Cet assembleur n'utilise pas une syntaxe conventionnelle. 
Aù premier abord, le choix d'une syntaxe spécifique à un 
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DARK RIRE AH CROIRE EK CHAR AO AOR AA RONA AO ACHCACE ARR KA 
ZX PROGRAMME DE GENERATION DE GRILLES DE LOTO *X/ 
/XECRIT EN TUR@BPROLOG PAR JEAN-PAUL POSTEC AVRIL 1987 */ 
DR HOK KR RONER RO OKON RO ION HR HONOR OK NOK OR KONRONHCRORHROCK OK 


LA MAITRISE DU GRAPHISME 
Par Marc FETRENMANN 


Les systèmes THOMSON, comme la plupart des Sons ins 
micro-ordinateurs actuels, prennent en liste=integerx 
considération deux modes d'affichage, le 
mode texte et le mode graphique. Sur predicates 
certains systèmes, tel APPLE II ou ORIC, ces hasard(integer) 
modes sont distincts. D'autres systèmes, et tirage(liste) 
y copris les systèmes THOMSON, affichent différent (liste) 
simultanément les informations en mode texte hors(integer, liste) 
et en ode graphique. On peut mélanger les répète(integer) 
textes et les dessins. Le nombre d'éléments triQiste, liste) 
affichables en mode texte dépend du rapport ajout(liste, liste, liste) 
entre la taille d'un élément en mode texte écrireliste(liste) 
et la taille de la zone d'affichage 
disponible sur l'écran vidéo. DATE TT TITI TITI TITI TT SLTS TI TS TITI LS LS ESA 
/%x GENERATION DE 8 GRILLES D'OU REPETE(8) *%/ 
Si on regarde de très près un caratère DETTE TES TETE TT ITS T I LT EST ESS LIL I TL TS 
quelconque affiché à l'écran (essayez /), on 
constate qu'il est constitué d'une série de goal 
points ordonnés. Pour les systèmes THOMSON répète (8). 
TO7, mo7-70 et MO5, les  caratères 
affichables sont codés dans une matrice avdess > 
carrée contenant 64 points. hasard(X) if random(Y), X=1+48%Y. 
L'emploi des seuls caratères alphanumériques /Xx Tantque les 6 nombre tirés au hasard ne sont pas 
ne permet pas d'apporter une plus value à la différents on recommence le tirage */ 
présentation des informations affichées à 
l'écran. Ne dit-on pas qu'un petit dessin tiraget(LA,B,C,D,E,F)) if hasard(A), hasard(B), 
peut remplacer un long discours. C'est hasard(C), hasard(D), 
pourquoi on a recours aux fonctions hasard(E), hasard(F), 
graphiques. différent ([A,B,C,D,E,F1),!. 


tirage({(A,B,C,D,E,F1) if tirage ((A,B,C,D,E.F1). 
Sur les systèmes THOMSON sous  FORTH, 


l'allumage d'un point est obtenu en /X Une liste a tous ses éléments différents si d’une part 
utilisant le mot PSET ( x y PSET) avec x elle est vide et d'autre part si sa tête n'est pas 
compris dans l'intervalle 0..319 et y dans élément de sa queue et si tous les éléments de sa queue 
l'intervalle O..199. Exemple: sont eux-mêmes différents #/ 

30 50 PSET différent ({(]) if !. 


différent (XiY]) if hors(X,Y), différent CY). 
Cette notion de pixel (ou élément graphique) | 


est importante, car elle recoupe cellme de /*x N'importe quoi est hors d’une liste vide, de plus 
bit en logique binaire. La maitrise des X n'est pas élément d'une liste s'il est différent 
mécanismes discrets qui contrôlent de ia tête de liste et s'il n'est pas élément de 
l'affichage permet d'obtenir des effets la queue de liste %*/ 
impossibles à réaliser par les fonctions 
pré-progranmées du système. hors(_,[])) 1f !. 
hors(X,[YiZ]) if XC>Y, hors(X,2). 
I1 y a quelque temps, j'ai demandé dans la 
lettre du secrétaire des informations répète(0) if !. 
concernant l'implantation des  caratères répète(N) if tirage(lA,B,C,D,E,F)), 
arabes et cyrilliques sur les claviers de tri(A,B,C,D,E,Fl,Liste triée), 
machines à écrire. Je tiens ici à remercier écrirelistet(Liste triée), 
l'adhérent qui a répondu à m demande. Ma ni, Ni=N-1, répète (N1). 
première idée était d'élaborer un programme 
de traitement de texte en arabe. Puis, par /X Ii s'agit ici du tri bulle utilisant la concaté- 
manque de temps, je n'ai pu qu'ébaucher une nation (ajout) de deux listes */ 
première idée des mécanismes particuliers à 
ce programme dont voici les principes. tri(Li,Le) if ajout(X,lA,B'Y]1.,L1), 
B<A, ajout(X,[B,A:Y],L2), 
Pour définir un alphabet graphiquement tri(L3,L2), !. 
différent de celui disponible dans le tritL,Lo. 
système, plusieurs solutions s'offrent à 
nous. La première consiste à créer tous les ajout ([),L,L). 
caractères dans des matrices binaires. Mais ajout(tX!L1]l,L2,[X!L3]) if ajout{Li,L2,L3). 
cette solution à ses limites: nombre de 
codes disponibles limité, taille de la /* Ecriture des éléments d'une liste à l'aide de 
matrice réduite. Essayez un caratère KANJI la récursivité, si la liste est vide on n'écrit 
(japonais) dans un carré 8x8... rien (arrêt), sinon on écrit la tête de liste et 
on recommence sur la queue de liste */ 
La solution qui devait être retemue est BR 
celle du codage de FREEMAN. Cette méthode ésrireliste(l1) if !. 
permet de définir un dessin à partir d'un écrirelistet([X:Q)) if writef("%4.0",X), écrireliste(@). 
point et une série de codes représentants 
les muvements élémentaires. A l'exécution, L 
ce codage s'apparente au dessin à main levée. représentation à une échelle suffisament grande dans une 
grille Prendre un point de départ P et avancer case par 
Définition des codes de mouvement: 8, 1 ,2 case en notant le code du déplacement. 
7e Pour exemple, j'ai choisi la lettre N mjuscule manuscrite 
5 à et implanté les codes dans la zone paraètre du mot LETTRE 


N. Cette séquence de codes est terminée par le code O qui 


Puis on choisit un dessin à représenter et on reporte sa signifiera à l'exécution la fin de liste. a 
p am 
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un 
CÜE 


VARIABLE YO 


CREATE LETTRE-N 

6 C, 5 C, 4 C, 3 C, 2 C, 1 C, 2 C, 1 C, 
2 C; 1.C, 2€, LC, 2 C;. 1 C;.2.€C, À C, 
2C, 5C, 5C, 5 C, 6 C, 5 C, 5 C, 6 C, 
5 C, 5 C, 6C, 5 C, 5 C, 4 C, 2 C, 1 C.. 
1C, 2C, 1C, 2C, 1C, 2C, 1C, 2 C, 
1C, 2€, 2C, 3C, 4 C, 5 C, 6 C, 7 C, 
à C, 


Les variables X0 et YO déterminent la position du point à 
afficher. Le mot ORIENTATION détermine le décalage à 
affecter aux codes du motif à tracer. Cette astuce permet 
de tracer le même motif avec huit orientations 
différentes. Exemple: 


Enfin, le mot AFFICHER trace votre dessin. Pour exemple, 
LETTRE-N 20 20 AFFICHER trace la lettre N manuscrite à 
partir du point de coordonnées 20 20. 49 codes suffisent à 
définir notre lettre N et le dessin peut être tracé selon 
huit orientations différentes! !. 


ORIENTATION € n --—-) 


SENS ‘! 
AFFICHER ( adr X@ Y® -—-) 
Y@ ! Xxe ! 
BEGIN 
XQ @ Y@ @ PSET 


DUP 1+ SWAP 
MOD 1+ 


C@ DUP 1- SENS @ 1- + 8 
CASE 
1 OF -1 Y®© +! ENDOF 
2 OF 1 X@ +! —1 Y@ +! ENDOF 
3 OF 1 X® +! ENDOF 
4 OF 1 XO +! 1 Y@ +! ENDOF 
5 OF 1 Y®@ +! ENDOF 
6 OF -1 X@ +! 1 YO +! ENDOF 
7 OF -1 X@ +! ENDOF 
& OF -1 X®© +! -1 Y® +! ENDOF 
ENDCASE 
@= 
UNTIL 
DROP ; 
Ainsi, le codage de HUFFMAN permet de définir un alphabet 


comportant un nombre quelconque de caractères. Les 
caratères pourront être tracés dans n'importe quelle 
direction ce qui est pratique pour certains alphabets, 
dont l'alphabet arabe. Ce principe de codage autorise la 
superposition de caratères donc la ponctuation 


relativement complexe de l'arabe ou de tout autre 
alphabet. 

FORTH EN ARABE 
Voici une proposition tout à fait audacieuse: définir 


FORTH en arabe. L'idée est plus simple qu'il n'y parait au 
premier abord. L'affichage d'un mot en caratères latins ou 
arabes serait déterminée en fonction de l'état du bit non 
utilisé dans le nfa du mt: bit à O, caratères latins, 
affichage conventionnel; bit à 1, caratères arabes, 
affichage en codage de FREFMAN, ainsi conserverait-on la 
mixité des alphabets. Les nombreuses fonctions vectorisées 
par F83 permettraient de générer une saisie clavier 
directement en caratères arabes avec exécution de tout mot 
saisi au clavier. 


Dans le même ordre d'idée, un FORTH-GORBATCHEV 
arrière pensée politique...) pourrait être envisagé. 


(sans 


see de la : 
assembleur écrit’ en langage FORTH peut sembler superflue. 
En effet, pourquoi réinventer une nouvelle syntaxe au lieu 
d'utiliser celle déjà existante dans un assembleur 
conventionnel et largement utilisée en programmation. 


«ge AS 


La conservation d'une syntaxe conventionnelle oblige à 
définir en FORTH un programme d'analyse syntaxique très 
encombrant. Il faut rechercher les séparateurs tels la 
virgule, le crochet carré ouvrant où fermant, les éléments 
de chaîne à convertir en nombre, etc... bref des 
opérations délicates. Un tel analyseur syntaxique 
n'admettrait plus l'usage de mots FORTH et la définition 
de macro-instructions deviendrait impossible. 


La solution retenue est inspirée des assembleurs implantés 
et utilisables en FORTH pour les systèmes équipés de 


micro-processeurs Z80, 8080, 8086, 65, 68000, VAX 
ASSIMBLER, PDP-11 ASSEMBLER... 

La syntaxe du code source défini à l'aide de cet 
assembleur est compatible avec celle définie dans la 


version eFORTH (de Frank HO Laboratory) et reprise par 
l'ensemble de la communauté FORTH internationale. Les 
extensions particulières sont définies dans les blocs 31 
et 32. Une gestion minimale des erreurs est assurée en cas 
de défaut d'opérande ou de mde d'adressage erroné. Les 
nombreux commentaires inclus dans le programme source 
permettent à l'utilisateur de comprendre le fonctionnement 
de cet assembleur. 


L'assembleur FORTH est constitué de 25 blocs, numérotés de 
7 à 32. Dans le bloc no7, les mots DEFER et TS permettent 
la gestion de vecteurs telle qu'elle est définie par le 
FORTH 83-STANDARD. La compilation du bloc 8 est 


facultative. Son contenu, s'il est compilé, définit une 
suite de vecteurs dont le but es de permettre 
l'assemblage croisé, c'est à dire la génération d'un code 


objet pouvant être exécuté sans la cartouche FORTH. Cette 
extension reste à définir, 
L'assembleur proprement dit commence au bloc 11. Toutes 


les définitions gérant cet assembleur sont utilisables sur 
d'autres systèmes équipés du micro-processeur 6809 (GOUPIL 
2 et 3, TAVERNIER, VEGAS 6809, SQUALE, DRAGON 32 et 64 et 
tout système tournant sous FLEX ou 059-6809), Il peut 
également être repris au sein d'un méta-compilateur FORTH 
équipant les systèmes IEM et compatibles (FORTH 83 de 
Laxen et Perry, FORTH IMI) pour générer un code objet qui 
sera tranféré et utilisé sur un système équipé d'un micro 
processeur 6809. 


Par convention, on désigne les différents éléments de la 
syntaxe du langage d'assemblage par les termes de labels 
d'opérateurs et d'opérandes. Dans un listing source écrit 
en assembleur conventionnel {celui disponible dans la 
cartouche ASSIMBLEUR pour T07/70 et TO9 par exemple), 
chacun de ces éléments est utilisahle dans une zone 
déterminée de l'écran. Ainsi, les colonnes O à 7 sont 
réservées aux labels et étiquettes; les colonnes 8 à 15 


aux opérateurs (appelés aussi mnémonigues) où aux 
directives d'assemblage et, éventuellement, aux macro- 
instructions; les colonnes 16 à 23 aux opérandes: les 


colonnes restantes contenant des commentaires. 

Ses Fe Fee A4& 
Dans l'assembleur FORTH, on trouvera l'opérande, suivi 
éventuellement d'un indicateur de mode d'adressage, puis 
l'opérateur où la mero-instruction. L'écriture de ces 
différents éléments se fait 'en ligne'. Il n'y a pas 
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RECREATIONS A.PL. 


propose sous ce titre une série de 
APL courts (tout au moins en APL) faciles, amusants et 
parfois utiles, et celà dans le but de familiariser le 
débutant avec le langage APL. Aujourd'hui: 


tits programmes 


LE CRIBLE D'ERATHOSTHENE 


C'est un procédé qui permet de répertorier tous les 
nombres premiers inférieurs où égaux à un nombre donné N. 


Le principe est simple: on dresse un tableau de tous les 
nombres dans l'ordre croissant, à partir de 2 et on barre 
tous les miltiples de ce nombre qui se trouvent dans le 
tableau. A la fin des opérations, il nbe reste plus que 
les nombres entiers. 


Pratiquement, on partira d'un tableau T unidimensionnel, 
de N éléments égaux à 1, le rang de chaque élément du 
tableau est alors compris entre 1 et N inclus. Ceci 
s'écrit en APL: 


TeNe! 
(le @ (rho) est en APL l'opérateur "DIMENSION"). 
Ensuite on mettra à zéro tous les éléments du tableau dont 
le rang est maltiple de I (sauf I lui-même), I étant un 
indice qu'on fera varier de 2 à N. 
Plutôt que de faire une boucle (toujours à éviter dans an 


langage interprété) pour calculer les multiples de T, on 
les calculera directement en sachant que leur nombre (I 


inclus) est la valeur entière de N divisée par I. Soit en 
APL: 

LN+I 
Rappelons encore ici qu'une expression APL esr toujours 


évaluée de droite entre les 


opérateurs. 


à gauche, sans priorité 


L'opération 1K (iota de K, K entier) génère les K premiers | 


nombres entiers dans l'ordre croissant. Les mitipies de T 
{I compris) situés dans le tableau seront générés par 
l'expression APL: 


IxiLN=I 
Si l'on veut exclure I lui-même, il faut en "laisser 
tomber" le premier élément grâce à l'opérateur "DROP" 
symbolisé par +. 
mettre à zéro seront donnés par l'expression APL: 
1YIxrLNEI 


Ceci étant, on pourra écrire la fonction suivante: 


Co] ZeERATO N 

[1] on +*+xx Crible d'Eratosthene *%x* 
C2} TeNpleNI0*#i 

C3] LOCUP:+CN<1eI+1)/END 

[4] +(TC11=0)/LO0P 

C5] TÜIVIXAUN+I]e0 

[6] +LOOP 

C7] END:ZeT/A\N 


La ligne [3] commence par le mot LOOP suivi de : ce qui 
simifie que ce mot est une étiquette servant à repérer la 
ligne. 


Ensuite, sont réalisées successivement l'incrémentation de 
I, et lorsque I est devenu supérieur à N, le branchement 
vers l'étiquette END, ce qui fait sortir de la boucle. 


Ce branchement est fait de manière classique en APL en 
écrivant: 


æ (condition) / étiquette 


Nous n'en détaillerons pas la syntaxe maintenant, mais 
nous retienirons le procédé. 

La ligne [4] n'est pas indispensable, mais fait er du 
temps à l'exécution. Si I n'est pas premier (si T[I}-0), 


il est inutile de supprimer ses multiples du tableau: 
c'est déjà fait! On passe tout de suite à la valeur 


suivante de I en se branchant en début de boucle. 
L 
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La ligne [5] est en fait la seule "vraie" ligne 
d'instruction du programme, les autres ne servant qu'à 
initialisations, des incrémentations, des branchements... 
l'intendance. Elle affecte la valeur O à toutes les cases 
du tableau correspondant aux maltiples de I. Celà se fait 
en une seule instruction, sans rajouter de boucle 
supplémentaire. 


La ligne [6] nous renvoie en début de boucle. 


La ligne [7] sert à "sortir" les nombres premiers qui sont 
en fait les indices des éléments du tableau qui sont égaux 
à 1. Arrètons nous y un instant car elle utilise un 
opérateur très utile en APL, l'opérateur COMPRESSION / 
(remarque: la division c'est 5). Le vecteur (la liste) des 
N premiers nombres entiers généré par 1N, est compressé 
par le vecteur T de même longueur que lui, mis composé de 
O et de t. Seuls les éléments correspondants à des { sont 
conservés. 


Comme un petit exemple vaut mieux qu'un long discours, 
voici ce qui se passe pour N=10: 


N dr, 22.35.65 7 :8: JM 
Al 4 4 1 0 1 O 1 0 O O 
Z 1 2 3 5 7 


Le débutant en APL pourra facilement éditer ce petit 
programme de sept petites lignes. À titre de comparaison, 
i1 faudrait de 25 à 30 lignes au minimum pour l'équivalent 
Basic ou Pascal (Ndir: ..en Pascal, un programme est 
destiné à être compilé, donc le résultat ne s'exprime plus 
en nombre de lignes, idem pour FORTH dont le crible 
d'Eratosthène est un programme de test de performances — 
voir l'article concernant le NOVIX4000 dans le no32). = 


ET Su le le (a Pa SAT S 
d'emplacement défini ne les labels, les opérateurs et 
les opérandes. Seul compte l'ordre d'écriture de ceux-ci. 
ÎLes commentaires sont écrit tels que définis dans le 
| standard FORTH, c'est à dire entre parenthèses. 


Les opérandes peuvent être des constantes ou des variables 
définies en FORTH, des nombres entiers, des labels pour 
les instructions de branchement. Toutes les bases 
numériques sont utilisables (oui, toutes, c'est à dire de 
2 à %6 sans discontinuité). Exemple: 


16384 4 l1dx 
ou HEX 4000 # 1dx 
ou HEX 4000 CONSTANT STAD 


..et plus loin... 
STAD “#4 Ldx 


Les éléments de l'instruction  (opérande, opérateur, 
indicateur de mode d'adressage) seront séparés par au 
moins un espace et les instructions écrites sur une même 
ligne par trois espaces au moins, ceci afin d'accroître la 
lisibilité du programme. Exemple: 
25 # lida a,s 1dx 

Les opérateurs et indicateurs de mode d'adressage sont 
tous définis en caractères minuscules, évitant ainsi les 
confusions entre les nombres exprimés en base hexadécimale 
et certains opérateurs, tels DECB et decb par exemple. 


L'ADRESSAGE INHERENT 


L'adressage inhérent simple ne comporte aucun opérande et 
est utilisé par les instructions agissant directement sur 
les registres internes du 6809. Ces instructions sont 
définies dans le bloc 11. Exemple: j 

decb 


rola mul 


En adressage inhérent paramétré, l'opérateur est précédé 


par un où plusieurs mots chargés de contrôler un paramètre 
utilisé ensuite par les opérateurs exg, tfr, pulu, puls, 
pshu et pshs. Exemple: 

a b exg 

x d tfr 

b x y pshs j 

es noms donnés aux registres sont: 


Re —— ——————— ——— 


a b d pour les accumlateurs 

u ss les pointeurs de pile 

X y les registres d'index 

per le compteur programme 

dpr le registre ‘page directe! 
ecr le registre de code condition 


Dans le cas d'un empilage des registres, 
empiler u ou s sur les piles respectives. 
séquence ‘u pulu' est erronnée (en fait, 
registre s qui sera empilé). 


il ne faut pas 
Ainsi, la 
ce sera le 


Dans le cas de l'opérateur cwai, l'opérande représente une 
valeur litérale et utilisé comm les opérandes de 
l'adressage immédiat, ceci à l'exclusion de tout autre 
mode d'adressage. Exemple: 


HEX FF ft cwai. 


LE MODE D'ADRESSAGE IMMEDIAT 


L'opérande 
représenté 


est suivi d'un indicateur de mde d'adressage 
par le signe '#'. Exemple: 

65 # lda ( charge a avec valeur 65) 

L'opérande est toujours un nombre entier, mais son 
intervalle de définition dépend du registre affecté. Pour 
un registre huit bits, cet intervalle est compris entre O 
et 255; pour un registre seize bits, il est compris entre 
0 et 65535. Si l'opérande affecté à un registre huit bits 
est en dehors de cet intervalle, seule la partie de poids 
faible sera prise en compte. Ce cas ne produit pas de 
message d'erreur. 


L'ADRESSAGE ETENDU 


l'instruction comprend un opérande seize bits, suivi de 


l'opérateur. Exemple: 
16384 lda ( charge a avec contenu adr 16384) 


En cas d'hésitation, vous pouvez forcer le mode 


d'adressage étendu en utilisant le sigme ">". Exemple: 
16384 > lda 
L'adressage étendu admet un niveau d'indirection 
supplémentaire. Cette indirection est marquée par l'emploi 
du signe "]". Exemple: 
HEX 2000 ] lda 


équivalant à LDA[$2000] en assembleur conventionnel. 


LE MODE D'ADRESSAGE DIRECT 


L'instruction est composée de l'opérande, suivi du sigme 


"<" dont le rôle est de forcer l'adressage direct, et de 
l'opérateur. Exemple: 

HEX 602D < lda et  HEX 2D < lda 
sont équivalents, si le contenu de dpr a été initialisé 


avec l'octet de poids fort de l'opérande, ici 60 pour 602D 
en hexadécima]. 


Cette initialisation est programmée par l'utilisateur 
comme suit: 
HEX 60 # lda a dpr tfr 


Attention, l'assembleur FORTH ne passe pas automatiquement 
du mode d'adressage étendu au mode d'adressage direct dans 
le cas où la partie poids fort de l'adresse corresponi 22 
contenu du registre dpr. 


LE MODE D'ADRESSAGE INDEXE 


C'est le plus complexe des modes d'adressage. L'indexation 
fait appel à me base et un déplacement. La base peut être 
un des deux registres d'index x où y, mais également un 
des pointeurs de pile u ou s, ou dans certains cas le 
compteur programme per. 


Le déplacement peut être une valeur litérale nulle, ou 
exprimée sur cinq, huit ou seize bits. Ce déplacement peut 


aussi être désigné par le contenu d'un des accumlateurs 
a, b ou d. Enfin, la base peut subir une pré- 
décrémentation simple ou double, où une  post- 
incrémentation simple ou double. Dans certains cas, une 
indirection supplémentaire peut être sélectionnée. 

Les indicateurs de mode d'adressage indexé avec 
déplacement constant sont définis dans le bloc 11 et sont 


les suivants: 


:X 5Y 30 ,S 


et le déplacement est toujours indiqué, même dans le cas 


d'un déplacement nul. Exemples: 


9 ,u 1dd 
6 ,u ldd 
Les indicateurs du mode d'adressage indexé avec 


déplacement variable sont définis dans le bloc 16 et sont 
les suivants: 


a,X b,x d,x 
a,u b,u d,u 


a,y b,y d,y 
a,s b,s d,s 


6 # lda 
6 ,u ldx 


Exemple: a,u 1dx 


est équivalent à 


Les indicateurs du mode d'adressage indexé avec pré- 
décrémentation et post-incrémentation sont définis dans le 
bloc 15 et sont les suivants: 


RC CE ee 
ÿ+ D'ARTS 2 
sut qu = = 
S+ SH ,-S 5 ——S 
Exemple: ,X+ lda 
est équivalent O ,x 1da 1 ,x leax 
Un niveau d'indirection supplémentaire peut être 


sélectionné, sauf dans le cas d'une pré-décrémentation 
simple ou une post-incrémentation simple. Dans le cas du 


déplacement constant sur cinq bits, ce déplacement est 
convertit en déplacement huit bits. Exemple: 

CODE CALT ( adr —) O ,u ] jer 

NEXT  END-CODE 


Dans le cas de l'adressage indexé utilisant le compteur 
programme comme base, il y a certaines restrictions. Le 
déplacement est précisé sous forme d'adresse, le mot ‘per’ 
convertissant cette adresse en valeur relative. Le 
déplacement huit ou seize bits est sélectionné 
automatiquement. Il n'y a pas d'indirection supplémentaire 
pour ce cas. Exemple: 


DECIMAL VARIABLE MASQUE 127 MASQUE ! 
et plus loin, dans une définition: 
MASQUE ,per adda 
LES BRANCHEMENTS 


Ils sont de deux sortes, les branchements in NME 
absolus et les branchements conditionnels relatif 


Les branchements inconditionnels absolus correspondent à 


des branchements réalisés vers une adresse exprimée 
littéralement. Les deux branchements possibles dans ce cas 
sont jmp et jsr. Ces deux mots sont utilisables en 


adressage étendu, direct où indexé et admettent un niveau 
d'indirection supplémentaire en adressage étendu où 
indexé. Exemples: 


HEX 0099 jmp ( adr étendu) 


HEX 0099 # 144 d pshu 
9 ,u jp ( adr indexé, 


VARIABLE SUITE 0099 SUITE ! 

...et plus loin, dans une définition... 
SUITE # ldd à pshu 

O ,u | jm ( adr indexé, 


dépl. nul) 


dépl. nul avec indir.)} 
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Les branchements conditionnels relatifs, définis dans le 


bloc 28, sont précédés d'une adresse absolue. La 
conversion en valeur relative, pour exécuter un 
branchement court ou long, est automatique. Seuls les 


branchements conditionnels vers l'arrière sont possibles. 
Exenple: 


16384 CONSTANT STAD 


CODE RAZ ( —) 
x pshs O+#1lda 
LABEL RETOUR  ,x+ sta 
STAD 8000 + # cmpx RETOUR ENE 
x puls NEXT 
FORGET-LABEL RETOUR 
END-CODE 


Les deux instructions de branchement relatif bra et bser 
sont inconditionnelles. 


LABELS ET STRUCTURES DE CONTROLE 


L'ensemble des mnémoniques permettant l'assemblage de 
branchements conditionnels ne peuvent être utilisés que 
pour les branchements vers l'arrière, donc vers une partie 
de définition déjà assemblée. Le branchement peut être 
réalisé vers une partie de définition différente de la 
définition en cours d'assemblage. L'adresse de branchement 
peut être le début de la zone paramétrique d'une autre 
définition. Exemple: 


CODE <mot1> 

.… définition .. 
CODE <mot2> 

... définition ... 

" <moti> bne ... END-CODE 


. END-CODE 


En dehors de ce cas, on ne peut faire appel qu'aux labels. 
Les labels sont des pseudo-constantes dont les en-têtes 
sont définis de manière transitoire dans une zone réservée 
du dictionnaire et acœæssible à partir du vocabulaire 
ASSEMBLER exclusivement. Un label se définit dans une 
géquence en cours d'assemblage comme suit: 


LABEL <mot> 


le nombre de labels définissables simultanément est limité 
et varie en fonction de la taille des noms utilisés. 
Comptez une quinzaine de labels pour des noms de 6 à 10 
caractères de longueur. Cependant, on peut récupérer 
l'espace alloué aux labels après utilisation, en exécutant 
la séquence: 


FORGET-LABET, <mot> 


Tout label défini après <mot> sera oublié. L'effacement du 
premier label défini détruit tous les autres labels. Pour 
exemple, voir la définition de RAZ citée précédemment. 


Afin de limiter la prolifération des labels, on peut faire 
appel aux structures de contrôle. Ces structures, 
similaires à celles utilisables dans une définition de 
haut niveau, permettent de réaliser des branchements vers 
l'avant. Les structures de contrôle disponibles dans le 
vocabulaire d'assemblage sont les suivantes: 


if ... then 

if ... else ... then 
begin ... until 
begin ... while ... repeat 

Leur usage accroit considérablement la lisibilité du 
programme. Les conditions d'exécution du branchement sont 
placées avant le mot if pour les deux premières structures 
citées ci-dessus; avant le mot until pour la troisième 
structure; avant le mot while pour la dernière structure. 
Ces conditions sont définies dans le bloc 29. Les 
équivalences avec les instructions de branchement sont cc 
pour bcc, cs pour bcs, eq pour beq, etc... 


Important: les mots if, then, else, begin, while, repeat 
et until bien qu'ayant leurs homonymes définis en 
caractères mjuscules dans le vocabulaire FORTH, ne sont 
utilisables qu'au sein d'une séquence en cours 
d'assemblage. Une séquence du type ‘eq IF..then' est 
erronnée. Sous ASSEMBLER, il n'y a pas de vérification de 
cohérence de la structure. Une séquence du type 'begin .. 
if until .. t&then' vous amènera quelques surprises à 


. 
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l'exécution bien qu'aucune erreur ne soit sigmalée à 
l'assemblage. En effet, on peut vouloir ‘“déstructurer" 
volontairement deux structures de contrôle imbriquées. Cas 
de deux structures de contrôle imbriquées et structurées: : 


CODE <mot> ... 
cond if 
cond if .. then 
then .. 
| 
La "destructuration" peut être obtenue en inversant les | 


adresses de référence des branchements avant résolution: 


CODE <mot> ... 
cond if 
cond if .. SWAP 
then 
then .. 


ce qui a pour effet d'assembler des branchements croisés. 
Mais en règle générale, il est conseillé de respecter la 
structuration des séquences délimitées par les structures 
de contrôle. 


LES MACRO-INSTRUCTIONS 
Sous ce nom barbare se cache une des plus puissantes : 


options d'assemblage. Précisons un peu ce qu'est une 
macro-instruction pour l'assembleur FORTH. 


Lors d'une séquence d'assemblage, il arrive fréquemment 
qu'une même suite d'instructions apparaisse au cours du 
programme. IL peut donc être intéressant de définir un 
mot, qui, lors de son exécution, sera chargé d'assembler 
toute une suite de codes. 


Voyons un exemple très simple et fréquent; la paire de 
registres accumlateurs 8 bits a et b peut être considérée 
comme un seul registre accumulateur 16 bits nommé d, les 
registres a et b représentant respectivement les partie 
poids fort et poids faible du registre d. Or, s'il existe 
des instructions permettant le décalage du contenu de a et 
b, il n'existe rien de tel pour le registre d. Si on veut 
décaler le contenu du registre d, il faut faire appel à 
une suite d'instructions agissant sur le contenu des 
registres a et b séparément. Ainsi, pour provoquer un 


décalage logique à gauche du contenu du registre d, il 
faut taper: 

aslb rola 
La multiplication par huit, en valeur non signée, du 


contenu de d peut se définir: 
aslb rola aslb rola aslb rola 


Ce qui est un peu répétitif. La définition d'une macro- 
instruction, en assembleur conventionnel sur les systèmes 
disposant de cette fonction (donc pas sur les cartouches 

ASSEMBLEUR pour THOMSON 107/70/T09) se définit ainsi: 


LSLD MACRO 
ASLB 
ROLA 


ENDM 


Pour ENDMacro 


Et en assembleur FORTH, une macro-instruction se définit 
dans un mot de type "deux-points": 


: 1sld 
as1b 


ASSEMBLER 
rola FORTH ; 


Ce qui permet de réécrire la multiplication du contenu de | 
a par huit: i 


lsld 1sld I1sld 


En somme, créer une macro-instruction, c'est créer un 
nouveau mémonique. À titre d'exemple, voici ne série de 
macro-insfructions fréquemment utilisées. 
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HEX Aule At, Procha in 

: aba ( A:=A+B) numero 

ASSEMBLER b pshs ,s+ adda FORT ; 

: 1srd ( D:=D/2) : 
ASSEMBLER lsra rord FORTH ; | 


